-- Cancel how an inexperienced mathematician would cancel
inexperiencedCancel :: Int -> Int -> Ratio Int
inexperiencedCancel a b =
    let astr = show a
        bstr = show b
        a' = read (astr \\ bstr)
        b' = read (bstr \\ astr)
    in a' % b'
inexperiencedCancel :: Int -> Int -> Ratio Int
inexperiencedCancel a b =
    let astr = show a
        bstr = show b
        a' = read (astr \\ bstr)
        b' = read (bstr \\ astr)
    in a' % b'
inexperiencedCancel a b =
    let astr = show a
        bstr = show b
        a' = read (astr \\ bstr)
        b' = read (bstr \\ astr)
    in a' % b'