((rec(f r s)(print r s)((^,c((^`a(f(a r(c(a`1`2)0,`2)" ")(a(c(a`1`2),`2)`'after)))(#/(\S+) (\S+)/s)string-append))string-size string-copy))""(read-line))