(port-for-each(rec'_(print _)(#0=read-line))#0#)