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