(use gauche.collection)(map(map$ print)(group-collection(port-map + read-line):test equal?))