Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/nofib/real/bspt/Main.lhs
\begin{code} module Main where import Prog (prog) main = do str <- getContents putStr (prog str) \end{code}