A dice program