(port-fold(^(x n)(print #1=(~ #`",n,x"(- 2(or(string-scan #`",x"n)2))))#1#)"1"read)