(module classify_pin
  (fn bump (type (fn-type (params (own (con Int))) (ret (own (con Int))))) (params n)
    (body (app + n 1)))
  (fn main (type (fn-type (params) (ret (own (con Int))))) (params)
    (body (app bump 41))))