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