(port-fold(rec(_ x n)(print #1=(ref #`",n,x"(- 2(or(string-scan #`",x"n)2))))#1#)"1"read)