#! /usr/bin/clisp
(loop repeat 1000
      for r = (random 6)
      count (< r 3) into a
      count (< r 2) into b
      finally (format t "~,2,2f %" (/ b a)) )