#! /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)) )