import System.IO
import System.Environment
import Data.List

main = do
    args <- getArgs
    let fsm = if length args == 0
                then
                    readStdin
                else
                    readFromFile "fsm.txt"
    putStr fsm

readStdin:: String
readStdin = do
    contents <- getContents
    return contents

readFromFile :: String -> String
readFromFile fileName = do
    handle <- openFile filename ReadMode
    contents <-hGetContents hadle
    hClose handle
    return contents