rktfck/rktfck.rkt

#lang typed/racket

(require "rktfck/interpreter.rkt")

;; (interpret ",[-.]")

(define program
  "
  ++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.+++++++..+++.>>.<-.<.+++.------.--------.>>+.>++.
")

(interpret program)