(use srfi-42)(do-ec(:let l(#1=read-line))(: e(#1#))(: c l)(apply print(list-ec(: d l)#`"(,c,e,d)")))