-- === modulo ===

modulo :: Int -> Int -> Int
modulo x y = 
    if
        x >= y
    then
        modulo (x-y) y
    else
        x
modulo :: Int -> Int -> Int
modulo x y = 
    if
        x >= y
    then
        modulo (x-y) y
    else
        x
modulo x y = 
    if
        x >= y
    then
        modulo (x-y) y
    else
        x