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