sampleInput :: String
sampleInput = unlines
    [ "Disc #1 has 5 positions; at time=0, it is at position 4."
    , "Disc #2 has 2 positions; at time=0, it is at position 1."
    ]
sampleInput :: String
sampleInput = unlines
    [ "Disc #1 has 5 positions; at time=0, it is at position 4."
    , "Disc #2 has 2 positions; at time=0, it is at position 1."
    ]
sampleInput = unlines
    [ "Disc #1 has 5 positions; at time=0, it is at position 4."
    , "Disc #2 has 2 positions; at time=0, it is at position 1."
    ]