type
  TestType = object
    p: proc(x: string, y: int): int {.closure.}

when isMainModule:
  proc tproc(x: string, y: int): int =
    echo x
    echo $y

  let t = TestType(p: tproc)

  discard t.p("a", 1)