module Prelude where

showChar	:: Char -> ShowS
showChar        = (:)