From Social Cheetah, 9 Months ago, written in Haskell.
Embed
  1. {-# LANGUAGE RankNTypes #-}
  2.  
  3. main = do
  4.       putStrLn (bar show)
  5.       putStrLn (foo id)
  6.  
  7. foo :: (forall a. a -> a) -> [Char]
  8. foo fn =
  9.     let
  10.         val1 = fn "hey"
  11.         val2 = fn 42
  12.     in
  13.         show (val1, val2)
  14.  
  15. bar:: (forall a. Show a => a -> String) -> String
  16. bar fn =
  17.     let
  18.         val1 = fn "hey"
  19.         val2 = fn 42
  20.     in
  21.         val1 <> val2

A PHP Error was encountered

Severity: Core Warning

Message: Module 'zip' already loaded

Filename: Unknown

Line Number: 0

Backtrace: