scalaskel :: (Enum t, Eq t, Num t) => t -> [(t, t, t, t)]
scalaskel n = [(w, x, y, z) |
               w <- [0..n],
               x <- [0..n],
               y <- [0..n],
               z <- [0..n],
               (1 * w) + (7 * x) + (11 * y) + (21 * z) == n]
scalaskel :: (Enum t, Eq t, Num t) => t -> [(t, t, t, t)]
scalaskel n = [(w, x, y, z) |
               w <- [0..n],
               x <- [0..n],
               y <- [0..n],
               z <- [0..n],
               (1 * w) + (7 * x) + (11 * y) + (21 * z) == n]
scalaskel n = [(w, x, y, z) |
               w <- [0..n],
               x <- [0..n],
               y <- [0..n],
               z <- [0..n],
               (1 * w) + (7 * x) + (11 * y) + (21 * z) == n]