((^a(map(^s(print((#/((\w*).).*?\W\2.*?\W\2/#"~s ~a")1)))a))(port-map + read-line))