(do((t(set! +(read-line))#0=(let1 m(#/.$/t)#`",(m),(m'before)")))((and(print t)(equal? #0#+))))