-- compile with fay --html-wrapper
-- error thrown as soon as HTML page is loaded:
-- Uncaught TypeError: Cannot read property 'car' of null
import Prelude
main :: Fay ()
main = putStrLn doTest
doTest :: String
doTest = case ("x","") of
(x : xs, c) -> "OK."