(use gauche.lazy)(map print(sort(map(^m(m'after 1))(lrxmatch"()."(read-line)))))