main :: IO ()
main = do
    [moduleName] <- getArgs >>= return . map (stripExt "hs")
    putStrLn $ mainModuleText moduleName >>= expandTab 4
main :: IO ()
main = do
    [moduleName] <- getArgs >>= return . map (stripExt "hs")
    putStrLn $ mainModuleText moduleName >>= expandTab 4
main = do
    [moduleName] <- getArgs >>= return . map (stripExt "hs")
    putStrLn $ mainModuleText moduleName >>= expandTab 4