> module Main where
> import System.Environment(getArgs)
> import Data.Maybe(fromJust)
> import qualified Data.Map as Map
> import English

#include "DV_lhs"

This requires CPP / preprocessing; use Hugs.lhs for tests with Hugs


> main
>  = do
>	[s] <- getArgs
>	case doParse $ lexer s of
>	  ParseOK r f -> do
>			    putStrLn $ "Ok " ++ show r ++ "\n"
>					++ unlines (map show $ Map.toList f)
>			    toDV $ Map.toList f
>	  ParseEOF f  -> do
>			    putStrLn $ "Premature end of input:\n"
>					++ unlines (map show $ Map.toList f)
>			    toDV $ Map.toList f
>	  ParseError ts f -> do
>			    putStrLn $ "Error: " ++ show ts
>			    toDV $ Map.toList f