websites.factorcode: more examples.

diff --git a/extra/websites/factorcode/examples.txt b/extra/websites/factorcode/examples.txt
index ff65c2523fec90fd48d787e9eabb020d87b8c42e..b9be294da66fdc28b9aa5a23354e4b4589905da7 100644 (file)
--- a/extra/websites/factorcode/examples.txt
+++ b/extra/websites/factorcode/examples.txt
@@ -83,14 +83,8 @@ USING: io io.encodings.ascii io.files
 random sequences splitting ;
 
 "/usr/share/games/fortune/fortunes"
-ascii file-lines { "%" } split
-random [ print ] each
-----
-USING: morse text-to-speech ;
-
-"Hello, world!" speak-text
-
-"Factor" play-as-morse
+ascii file-lines { "%" } split random
+[ print ] each
 ----
 USING: combinators io kernel locals
 math.functions math.parser math.ranges
@@ -104,3 +98,20 @@ sequences ;
         [ i number>string ]
     } cond print
 ] each
+----
+USING: kernel math sequences text-to-speech ;
+
+"factor"
+
+dup [ "aeiou" member? ] find drop [
+    [ "way" append ]
+    [ cut swap "ay" 3append ] if-zero
+] when*
+
+speak-text
+----
+USING: math.text.english morse sequences ;
+
+{ 4 8 15 16 23 42 } [
+    number>text play-as-morse
+] each