love racket bot tracery json

tracery.json

{
	"origin": ["#code#"],
        "code": ["'(I love you)", 
"(quote (I love you))", 
"(list 'I 'love 'you)", 
"(list (quote I) (quote love) (quote you))", 
"(cons 'I (cons 'love (cons 'you '())))", 
"(cons 'I (cons 'love (list 'you)))", 
"(cons 'I (list 'love 'you))", 
"(cons 'I '(love you))", 
"'(I love . (you))", 
"'(I . (love . (you)))", 
"'(I . (love . (you . ())))", 
"'(I . (love you))", 
"`(I love you)", 
"`(I ,'love you)", 
"(quasiquote (I ,'love  you))",
"(quasiquote (I (unquote 'love) you))", 
"`(I ,`love you)", 
"(let (\\[verb 'love\\])\n  `(I ,verb you))", 
"`(I ,(string->symbol \"love\") you)", 
"`(I ,(string->symbol (list->string '(\\#\\l \\#\\o \\#\\v \\#\\e))) you)", 
"`(I love . (you))", 
"`(I love . ,(list 'you))", 
"`(I love ,@'(you))", 
"`(I love (unquote-splicing '(you)))", 
"`(I ,@(list 'love 'you))", 
"`(,@(list 'I 'love) you)", 
"`(,@'(I love you))", 
"`,'(I love you)", 
"`(I love you . ,'())", 
"(car (list '(I love you)))", 
"(cdr '(Hark! I love you))", 
"(let (\\[words '(love you I)\\])\n  (list (car (cdr (cdr words)))\n        (car words)\n        (car (cdr words))))", 
"(let (\\[words '(love you I)\\])\n  (list (caddr words)\n        (car words)\n        (cadr words)))", 
"(let* (\\[c '(you)\\]\n       \\[b (cons 'love c)\\]\n       \\[a (cons 'I b)\\])\n  a)", 
"(let ()\n  '(I love you not)\n  '(I love you))", 
"(vector->list (vector 'I 'love 'you))", 
"(vector->list \\#(I love you))", 
"(stream->list (stream 'I 'love 'you))", 
"((lambda args args) 'I 'love 'you)", 
"((lambda (one two . rest) rest) 'You 'believe 'I 'love 'you)", 
"((lambda (a c b) (list a b c)) 'I 'you 'love)", 
"(apply (lambda (a c b) (list a b c))\n       (list 'I 'you 'love))", 
"((lambda (a b \\[c 'you\\]) (list a b c)) 'I 'love)", 
"((lambda (\\#:foo b \\#:bar c \\#:baz a)\n   (list a b c))\n \\#:baz 'I \\#:bar 'you \\#:foo 'love)", 
"((lambda (a b \\#:key \\[c 'me\\]) (list a b c)) \\#:key 'you 'I 'love)", 
"(let (\\[f (λ (x)\n           (λ (y)\n             (λ (z)\n               (list x y z))))\\])\n  (((f 'I) 'love) 'you))", 
"(let (\\[f (case-lambda \n           \\[() 'I\\]\n           \\[(x) 'love\\]\n           \\[(x y) 'you\\])\\])\n  (list (f) (f 1) (f 1 2)))\n\n    ", 
"(append '(I love) '(you))", 
"(append '(I) '(love) '(you))", 
"(flatten '((I) (love you)))", 
"(flatten '((I) (love) (you) ()))", 
"(reverse '(you love I))", 
"(remove 'cannot '(I cannot love you))", 
"(remove-duplicates '(I love love love you))", 
"(take '(I love you not) 3)\n",
"(take-right '(I think I love you) 3)\n      ", 
"(drop '(She knows I love you) 2)", 
"(drop-right '(I love you no more) 2)", 
"(map (lambda (x) (if (eq? x 'hate) 'love x))\n     '(I hate you))", 
"(map (λ (i) (vector-ref \\#(love you I) i))\n     '(2 0 1))", 
"(map (λ (k) (hash-ref \\#hash((\"foo\" . I) \n                            (\"baz\" . you)\n                            (\"bar\" . love)) k))\n     '(\"foo\" \"bar\" \"baz\"))\n     ", 
"(map string->symbol (sort (list \"love\" \"you\" \"I\") string<?))", 
"(map string->symbol (string-split \"I-love-you\" \"-\"))", 
"(flatten (map (λ (a b) (cons a b))\n              '(I love you)\n              '(() () ())))", 
"(filter (lambda (x) (not (eq? x 'cannot))) \n        '(I cannot love you))", 
"(foldr cons '() '(I love you))", 
"(foldl cons '() '(you love I))", 
"(for/list (\\[word \\#(I love you)\\])\n  word)", 
"(cond\n  \\[(even? 3) '(Not me)\\]\n  \\[(odd?  3) '(I love you)\\])\n  ", 
"(cond\n  \\[(even? 3) '(Not me)\\]\n  \\[(odd?  2) '(Nor I)\\]\n  \\[else      '(I love you)\\])\n  ", 
"(case 1\n  \\[(a b c) '(Not me)\\]\n  \\[(3 2 1) '(I love you)\\])", 
"(match \\#t\n  \\[\\#f '(Not me)\\]\n  \\[\\#t '(I love you)\\])", 
"(match \\#t\n  \\[\\#f '(Not me)\\]\n  \\[_  '(I love you)\\])", 
"(match 'you\n  \\['me '(Not me)\\]\n  \\[x   `(I love ,x)\\])", 
"(match '(foo bar)\n  \\['(foo bar) '(I love you)\\])", 
"(match '(I cannot lift you)\n  \\[(list 'I 'cannot _ c) `(I love ,c)\\])", 
"(match '(2 3 1)\n  \\[(list-no-order 3 1 2)\n   '(I love you)\\])", 
"(match '(love you I)\n  \\[(list-no-order 'I 'love foo)\n   `(I love ,foo)\\])", 
"(match '(3 . 4)\n  \\[(cons 3 4)\n   '(I love you)\\])", 
"(match '(3 love 1)\n  \\[(cons 3 (cons x (cons 1 '())))\n   `(I ,x you)\\])", 
"(match '(3 love 1)\n  \\[(cons 3 (cons x (cons 1 '())))\n   `(I (unquote x) you)\\])", 
"(match 3\n  \\[(? symbol?) '(Not me)\\]\n  \\[(? string?) '(Me neither)\\]\n  \\[(? number?) '(I love you)\\])", 
"(match 3\n  \\[(not 4)   '(I love you)\\]\n  \\[3         'unreachable\\])", 
"(match '(you love I)\n  \\[`(,c love ,a)\n   `(,a love ,c)\\])", 
"(match '(We love you)\n  \\[`(,_ . ,rest)\n   `(I . ,rest)\\])", 
"(match '(We love you)\n  \\[`(,_ ,rest ...)\n   `(I ,@rest)\\])", 
"(match '(We love you)\n  \\[(list _ rest ...)\n   `(I ,@rest)\\])", 
"(match \\#(1 love 3)\n  \\[(vector (? number?) b (? number?))\n   `(I ,b you)\\])", 
"(match \\#hash((1 . I) (3 . you) (5 . love))\n  \\[(hash-table (1 a) (5 b) (3 c))\n   (list a b c)\\])", 
"(match 'you\n  \\[(and x (? symbol?)) `(I love ,x)\\])", 
"(match '100\n  \\[(app (λ (n) (- n 1)) 99)\n   '(I love you)\\])", 
"(list 'I \n      (call/cc (λ (cc)\n                 (error (cc 'love))))\n      'you)", 
"(with-handlers (\\[symbol? (lambda (p)\n                             `(I ,p you))\\])\n    (raise 'love))", 
"(let (\\[problem (delay (car '()))\\])\n  '(I love you))", 
"`(I ,(force (delay 'love)) you)\n ", 
"(letrec (\\[x (delay (list a b c))\\]\n         \\[a 'I\\]\n         \\[c 'you\\]\n         \\[b 'love\\])\n  (force x))\n       ", 
"(let (\\[word 'know\\])\n  (set! word 'love)\n  `(I ,word you))", 
"(let (\\[word-box (box 'know)\\])\n  (set-box! word-box 'love)\n  `(I ,(unbox word-box) you))", 
"(let-syntax (\\[un-yoda-list\n              (syntax-rules ()\n                \\[(_ c a b) (list 'a 'b 'c)\\])\\])\n  (un-yoda-list you I love))", 
"(let ((in (open-input-string \"I love you\")))\n  (cons (read in)\n        (cons (read in)\n              (cons (read in) '()))))", 
"(list (touch (future (λ () 'I))) 'love 'you)", 
"(let (\\[a (make-parameter \"a\")\\] \n      \\[b (make-parameter \"b\")\\]\n      \\[c (make-parameter \"c\")\\])\n  (parameterize (\\[a 'i\\] \\[b 'love\\] \\[c 'you\\])\n    (list (a) \n          ((parameterize (\\[b 'dislike\\])\n             (λ () (b))))\n          (c))))"]
}