こうかなあ。 import Codec.Binary.UTF8.String (encode) import Data.ByteString.Lazy (pack) import Data.Digest.Pure.SHA (showDigest, sha1) main = do putStr $ showDigest $ sha1 $ pack $ encode "寿限無寿限無五劫の擦り切れ海砂利水魚の水行末雲来…

System.FilePathモジュールにあります (http://hackage.haskell.org/packages/archive/filepath/1.1.0.2/doc/html/System-FilePath.html).

Text.Printfモジュールにあります (http://cvs.haskell.org/Hugs/pages/libraries/base/Text-Printf.html).