module Commons where

import System.IO
import Text.Read


type CalibrationLine = String
type CalibrationDocument = [CalibrationLine]


parseLine :: IO CalibrationLine
parseLine = do getLine

parse :: IO CalibrationDocument
parse = do done <- isEOF
           if done
              then return []
              else do line <- parseLine
                      doc <- parse
                      return (line:doc)