昔書こうとしたコアhaskell