Ruby: Gefecht

    p=Proc.new{|x,n|n.times{sleep x; printf "\a\r"}}

    while true; p.call(r=rand,(1/r).to_i); end