(for i 0(= s(coerce(pr:readline)'cons)r rev.s l(- len.s 1))(pr:+ s.i"
"r.i(if(> l i)(n-of l" ")r)))