((rfn r(s w)(when s(r cdr.s(+" "w))pr.w(apply prs s)prn.w))(drain:readc)"")