(do('(^s(regexp-replace* s"$"" "#/(?<!\.)\. /""#/\w+ \.\. /""" $""""^$"".")))(#f)(print'''''''''(read-line))(flush))