; chibi stuff
(import (scheme base)
        (scheme write)
        (srfi 101))

(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"))

(define (select-random-element list)
  (list-ref list (random (length list))))

(display (select-random-element vowels))