(use srfi-1)(receive(x y)(partition odd?(port-map values read))(#0=(rec,z(for-each print(sort z)))y)(print)(#0#x))