#!perl -p
s/./ord$&/sge;while($_){/.$/;$s=$&%2 .$s;$t=$v="";$t.=$v+$_/2|0,$v=$_%2*5
for/./g
;s/^0// if$_=$t}$_=$s;s/(.)(.)?/([A
,C
],[G
,T
])[$1][$2]/ge
IyFwZXJsIC1wCnMvLi9vcmQkJi9zZ2U7d2hpbGUoJF8pey8uJC87JHM9JCYlMiAuJHM7JHQ9JHY9IiI7JHQuPSR2KyRfLzJ8MCwkdj0kXyUyKjUKZm9yLy4vZztzL14wLy8gaWYkXz0kdH0kXz0kcztzLyguKSguKT8vKFtBLENdLFtHLFRdKVskMV1bJDJdL2dl