lineImageParser :: Parser ImageQuery
lineImageParser = do
    string "output_line_image"
    spaces
    orientation <- orientationParser
    spaces
    xstring <- digits
    spaces
    ystring <- digits
    spaces
    lstring <- digits
    return (LineImage orientation (read xstring) (read ystring) (read lstring))
lineImageParser :: Parser ImageQuery
lineImageParser = do
    string "output_line_image"
    spaces
    orientation <- orientationParser
    spaces
    xstring <- digits
    spaces
    ystring <- digits
    spaces
    lstring <- digits
    return (LineImage orientation (read xstring) (read ystring) (read lstring))
lineImageParser = do
    string "output_line_image"
    spaces
    orientation <- orientationParser
    spaces
    xstring <- digits
    spaces
    ystring <- digits
    spaces
    lstring <- digits
    return (LineImage orientation (read xstring) (read ystring) (read lstring))