1module Main where 2 3import Prelude 4 5import Effect.Console (log) 6 7runFn3 :: forall a b c d. (a -> b -> c -> d) -> a -> b -> c -> d 8runFn3 f a b c = f a b c 9 10main = do 11 log $ runFn3 (\a b c -> c) 1 2 "Done" 12