1#!/bin/guile
 2!#
 3(set! *random-state* (random-state-from-platform))
 4
 5(let main (
 6	   (e '("O" "T" "^" "$" "U" ";" "X"))
 7	   (m '("w" "~" "_" "." "o" "v" "u"))
 8
 9	   (dr
10	    (lambda (b a)
11	      (format b "~a" (list-ref a (random (length a))))))
12	   )
13  
14  (define i (dr #f e))
15  (display i)(dr #t m)(display i)
16  (newline)
17  )