splitExtras (Line _ ts:rest) =
    let (x, y) = splitExtras rest
     in (ts:x, y)
splitExtras (Line _ ts:rest) =
    let (x, y) = splitExtras rest
     in (ts:x, y)
splitExtras (Line _ ts:rest) =
    let (x, y) = splitExtras rest
     in (ts:x, y)