;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/terror-3/random-test.el

(require 'cl-lib)
(require 'pcase)

(defun get-prob-perc (prob)
  (pcase prob
    ("very-rare"      1)
    ("rare"           2)
    ("uncommon"       4)
    ("pretty-common"  8)
    ("common"        16)
    ("routine"       32)
    ("habitual"      64) ))

(defun t100 ()
  (random 100) )