readStdin = do
    contents <- getContents
    return contents

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