luhnDouble x = do let y = x*2 if y > 9 then y-9 else y

luhn a b c d = do let x = luhnDouble(c) let y = luhnDouble(a) let sum = x+y+b+d if sum mod 10 == 0 then True else False