(port-fold(^(c\)(write-byte(if(< 36(+(mod\ 4)c)39)46 c))(if(= c 10)0(+\ 1)))0 read-byte)