actualParsed :: [Disc]
actualParsed =
    [ Disc 1 17 15
    , Disc 2 3 2
    , Disc 3 19 4
    , Disc 4 13 2
    , Disc 5 7 2
    , Disc 6 5 0
    ]
actualParsed :: [Disc]
actualParsed =
    [ Disc 1 17 15
    , Disc 2 3 2
    , Disc 3 19 4
    , Disc 4 13 2
    , Disc 5 7 2
    , Disc 6 5 0
    ]
actualParsed =
    [ Disc 1 17 15
    , Disc 2 3 2
    , Disc 3 19 4
    , Disc 4 13 2
    , Disc 5 7 2
    , Disc 6 5 0
    ]