module Prelude where type ShowS = String -> String