{-# OPTIONS_GHC -fglasgow-exts -fth -cpp #-}

{-
    Parrot IMC implementation.

    All that is gold does not glitter,
    Not all those who wander are lost;
    The old that is strong does not wither,
    Deep roots are not reached by the frost.
-}

module IMC (
    module IMC.Compile,
) where
import IMC.AST
import IMC.Compile
import Language.Haskell.TH
import Language.Haskell.TH.Ppr
-- import IMC.Lexer

#ifndef HADDOCK
run = $( imcX prog )
#endif

{-
yow :: String -> IO ()
yow str = do
    prog' <- runFoo
    $( imcX prog' ) -- how to get str into prog?
-}
