import System.Environment readADL :: String -> String readADL file = do cs <- readFile (file ++ ".adl") return cs