(port-map(rec,x(print(regexp-replace #/(.)(.*)(.)/x"\\3\\2\\1")))read-line)