fun : a -> b -> c -> d -> a
fun = \ a, b => \ c, d -> a