#lang typed/racket

(define-type Bank%
  (Class
    (init-field (path Path-String))
))


(: bank% Bank%)
(define bank%
  (class object%
    (init-field path)

    (: in Input-Port)
    (: out Input-Port)
    (define-values (in out)
      (values (open-input-file path) (open-output-file path)))
    (super-new)))