Add a bunch of new languages

Task/JSON/R/json-2.r

@@ -0,0 +1 @@
+cat(toJSON(data))

Task/JSON/R/json.r

@@ -0,0 +1,3 @@
+library(rjson)
+data <- fromJSON('{ "foo": 1, "bar": [10, "apples"] }')
+data

Task/JSON/Racket/json.rkt

@@ -0,0 +1,8 @@
+#lang racket
+
+(require json)
+
+(string->jsexpr
+ "{\"foo\":[1,2,3],\"bar\":null,\"baz\":\"blah\"}")
+
+(write-json '(1 2 "three" #hash((x . 1) (y . 2) (z . 3))))