; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
; a "println" form

  ( defun print-line ( obj )
    ( prin1 obj ) ( terpri )
  )

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
; a random number generator

  ( defun random-low-high ( low high &aux spread xrn rn )
    ( setf spread ( + ( - high low ) 1 ) )
    ( setf xrn ( random spread ) )
    ( setf rn ( + low xrn ) )
    rn
  )