#lang racket
(require [only-in plait test test/exn error print-only-errors])

(define o
  (lambda (m)
    (case m
      [(add1) (lambda (x) (+ x 1))]
      [(sub1) (lambda (x) (- x 1))])))

(test ((o 'sub1) 6) 5)