#!/usr/local/bin/klone

;; generates a random word of 8 letters

(setq N (Int (get *arguments* 1 "0")))
(if (= 0 N) (setq N 8))

(setq k-pro
  (system '("/bin/ksh" "-c" "while :;do echo $RANDOM;done") :output 'ko))

(defun rand ()
  (Int (read-line ko))
)

;; generate list of printable chars
(setq pcl "aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ0123456789+-.,/:=@_")
(setq pcls (length pcl))

(setq word "")
(dotimes (i N)
  (put word -1 (get pcl (mod (rand) pcls) #\?))
)

(? word "\n")
