@@ -38,6 +38,18 @@ module Prelude where
3838
3939 (#) :: forall a b. a -> (a -> b) -> b
4040 (#) x f = f x
41+
42+ infixr 6 :
43+
44+ (:) :: forall a. a -> [a] -> [a]
45+ (:) = cons
46+
47+ foreign import cons
48+ "function cons(e) {\
49+ \ return function (l) {\
50+ \ return [e].concat(l);\
51+ \ };\
52+ \}" :: forall a. a -> [a] -> [a]
4153
4254 class Show a where
4355 show :: a -> String