fuzz4 :
    Fuzzer a
    -> Fuzzer b
    -> Fuzzer c
    -> Fuzzer d
    -> String
    -> (a -> b -> c -> d -> Expectation)
    -> Test
fuzz4 fuzzerA fuzzerB fuzzerC fuzzerD description fn =
    fuzz2
        (Fuzz.tuple ( fuzzerA, fuzzerB ))
        (Fuzz.tuple ( fuzzerC, fuzzerD ))
        description
        (\( a, b ) ( c, d ) ->
            fn a b c d
        )