infoMode keys = do
    headerString <- hGetLine stdin
    let parsedHeader = runParser parseHeader () "" headerString
    either wrongHeader (\_ -> print headerString) parsedHeader
    where  wrongHeader _ = hPutStrLn stderr "wrong Header"
infoMode keys = do
    headerString <- hGetLine stdin
    let parsedHeader = runParser parseHeader () "" headerString
    either wrongHeader (\_ -> print headerString) parsedHeader
    where  wrongHeader _ = hPutStrLn stderr "wrong Header"
infoMode keys = do
    headerString <- hGetLine stdin
    let parsedHeader = runParser parseHeader () "" headerString
    either wrongHeader (\_ -> print headerString) parsedHeader
    where  wrongHeader _ = hPutStrLn stderr "wrong Header"