(port-map(^s(print(regexp-replace #/(?<=(\w *){16})\w/s(^m(char-upcase(~(m)0))))))read-line)