beautiful-racket/beautiful-racket-demo/basic-demo-2/misc.rkt

#lang br
(require "struct.rkt")
(provide (all-defined-out))

(define (b-rem val) (void))

(define (b-print . vals)
  (displayln (string-append* (map ~a vals))))

(define-macro (b-let ID VAL) #'(set! ID VAL))

(define-macro (b-input ID)
  #'(b-let ID (let* ([str (read-line)]
                     [num (string->number (string-trim str))])
                (or num str))))

(define (b-end) (raise (end-program-signal)))