First commit of partial RosettaCode contents.

Pushing this for testing purposes. Lots of work still needed.

Task/Anagrams/PicoLisp/anagrams-2.l

@@ -0,0 +1,8 @@
+(let Words NIL
+   (in "unixdict.txt"
+      (while (line)
+         (let (Word (pack @)  Key (pack (sort @)))
+            (if (idx 'Words Key T)
+               (push (car @) Word)
+               (set Key (list Word)) ) ) ) )
+   (flip (by length sort (mapcar val (idx 'Words)))) )

Task/Anagrams/PicoLisp/anagrams.l

@@ -0,0 +1,4 @@
+(flip
+   (by length sort
+      (by '((L) (sort (copy L))) group
+         (in "unixdict.txt" (make (while (line) (link @)))) ) ) )