-- === multiples ===

multiples :: [Int] -> Int -> [Int]
multiples (x:y) z = 
    if 
        mod x z == 0
    then
        [x] ++ multiples y z
    else
        multiples y z
multiples :: [Int] -> Int -> [Int]
multiples (x:y) z = 
    if 
        mod x z == 0
    then
        [x] ++ multiples y z
    else
        multiples y z
multiples (x:y) z = 
    if 
        mod x z == 0
    then
        [x] ++ multiples y z
    else
        multiples y z