((^l #1=(#0=format #t"##~v,,,'#a#
"#2=(~'(49""18 28)(mod(hash l)4))"")(map(^x(#0##t"# ~va#
"#2#x))`("",@l""))#1#)(port-map + read-line))