A start on Joy types.

implementations/Elm/src/Joy.elm

@@ -0,0 +1,25 @@
+module Joy exposing (joyTermToString)
+
+
+type JoyType
+    = Symbol String
+    | Integer Int
+    | JoyList (List JoyType)
+    | JoyTrue
+    | JoyFalse
+
+
+joyTermToString : JoyType -> String
+joyTermToString term =
+    case term of
+        Symbol name ->
+            name
+        Integer n ->
+            String.fromInt n
+        JoyTrue ->
+            "true"
+        JoyFalse ->
+            "false"
+        JoyList list ->
+            "[" ++ (String.join " " (List.map joyTermToString list)) ++ "]"
+