{-# 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?
-}