(port-fold(^`\(write-byte(if(< .`42).`\))(+\(list-ref'(1 -1)(- .`40)0)))48 read-byte)