tSeparationMarks :: Double -> [Mark]
getSeparationMarks = fst . getSeparationMarks'


getSeparationMarks :: Double -> [Mark]
getSeparationMarks = fst . getSeparationMarks'
getSeparationMarks = fst . getSeparationMarks'