fay-0.4.0.4: tests/24.hs

main = print (case [1,2,3,4,5] of
  [1,2,3,4,6] -> "6!"
  [1,2,4,2,4] -> "a!"
  [1,2,3,4,5] -> "OK."
  _           -> "Broken.")

print :: String -> Fay ()
print = ffi "console.log(%1)" FayNone