-- Main15min.hs
--
-- The 15 minute compiler.
--
-- compilation:
--      ghc --make Main15min.hs -o comp15min
--
-- usage:
--      ./comp15min < infile
--      ./comp15min < infile > outfile.ps
--      gs outfile.ps &
--

module Main where

-- needed for Token datatype and lexer
import Lexer15min

-- needed for parser
import Parser15min

-----------------------------------------------------------------
main = do
  file_as_str <- getContents
  let out = parser $ lexer file_as_str
  putStr out