haskellで書く