(while(print(or((#/ATG(((?!TA|TG)...)*)|$/(read-line))1)"")))