(port-map(^x(print((#/(.+?)\1*$/x)1)))read-line)