1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
(import (scheme base) (scheme write)) (define consonants (list "b" "c" "d" "f" "g" "h" "j" "k" "l" "m" "n" "p" "r" "s" "t" "v" "w" "z" "ch" "sh" "zh" "th")) (define vowels (list "a" "e" "i" "o" "u" "y" "ee" "ai" "ae"))