sub f1(Str $s where/^[A|C|G|T]+$/){[~]([~](<+ +-+>Zx(5,2)).comb(/....|..|./)[map(("y"~|*).ord()+>1%4,$s.comb)])}
sub f2(Str $s where/^[A|C|G|T]+$/){[~](%(((^4==>map({(.succ**2/4).floor**2}))Z+65..*)Z=><-+- + -+-+ -++>){$s.comb.map(*.ord)})}