#;
(exn-pred #rx"arity mismatch")
#lang racket/load

(module untyped racket
  (provide f)
  (define (f g)
    (g "foo")))
    

(module typed typed/racket
  (require/typed 'untyped
    [f (Procedure -> Any)])

  (: g (Byte -> Natural))
  (define (g x) (add1 x))
  
  (f g))

(require 'typed)