(port-map(^l(print(x->integer #`"#e,l,1")))read-line)