main = do
    (args) <- getArgs
    fsm <- if lenght args == 0
            then
                readStdin
            else
                readFromFile args
    putStr fsm