#lang plait
(define (safe-div num den)
  (if (zero? den)
      (none)
      (some (/ num den))))

(test (safe-div 42 0) (none))
(test (safe-div 42 12) (some 7/2))