%include verbatim.fmt
\begingroup
\let\origtt=\ttfamily
\def\ttfamily#1#2{\origtt}

>
>> main  ::  IO ()
>> main  =   putStrLn "Hello, world!"
>

\endgroup