(module r5rs (
              *
              +
              -
              /
              ;; ...
              ;; =>
              define-syntax
              ;; else
              let-syntax
              letrec-syntax
              syntax-rules
              unquote
              unquote-splicing
              <
              <=
              =
              >
              >=
              abs
              acos
              and
              append
              apply
              asin
              assoc
              assq
              assv
              atan
              begin
              boolean?
              caaaar
              caaadr
              caaar
              caadar
              caaddr
              caadr
              caar
              cadaar
              cadadr
              cadar
              caddar
              cadddr
              caddr
              cadr
              call-with-current-continuation
              call-with-input-file
              call-with-output-file
              call-with-values
              call/cc
              car
              case
              cdaaar
              cdaadr
              cdaar
              cdadar
              cdaddr
              cdadr
              cdar
              cddaar
              cddadr
              cddar
              cdddar
              cddddr
              cdddr
              cddr
              cdr
              ceiling
              char->integer
              char-alphabetic?
              char-ci<=?
              char-ci<?
              char-ci=?
              char-ci>=?
              char-ci>?
              char-downcase
              char-lower-case?
              char-numeric?
              char-ready?
              char-upcase
              char-upper-case?
              char-whitespace?
              char<=?
              char<?
              char=?
              char>=?
              char>?
              char?
              close-input-port
              close-output-port
              complex?
              cond
              cons
              cos
              current-input-port
              current-output-port
              define
              delay
              denominator
              display
              do
              dynamic-wind
              eof-object?
              eq?
              equal?
              eqv?
              error
              eval
              even?
              exact->inexact
              exact?
              exp
              expt
              floor
              for-each
              force
              gcd
              if
              imag-part
              inexact->exact
              inexact?
              input-port?
              integer->char
              integer?
              interaction-environment
              lambda
              lcm
              length
              let
              let*
              letrec
              list
              list->string
              list->vector
              list-ref
              list-tail
              list?
              load
              location
              log
              magnitude
              make-polar
              make-rectangular
              make-string
              make-vector
              map
              max
              member
              memq
              memv
              min
              modulo
              negative?
              newline
              not
              null-environment
              null?
              number->string
              number?
              numerator
              odd?
              open-input-file
              open-output-file
              or
              output-port?
              pair?
              peek-char
              port?
              positive?
              procedure?
              quasiquote
              quote
              quotient
              rational?
              rationalize
              read
              read-char
              real-part
              real?
              remainder
              reverse
              round
              scheme-report-environment
              set!
              set-car!
              set-cdr!
              sin
              sqrt
              string
              string->list
              string->number
              string->symbol
              string-append
              string-ci<=?
              string-ci<?
              string-ci=?
              string-ci>=?
              string-ci>?
              string-copy
              string-fill!
              string-length
              string-ref
              string-set!
              string<=?
              string<?
              string=?
              string>=?
              string>?
              string?
              substring
              symbol->string
              symbol?
              tan
              transcript-off
              transcript-on
              truncate
              unbound
              values
              vector
              vector->list
              vector-fill!
              vector-length
              vector-ref
              vector-set!
              vector?
              with-input-from-file
              with-output-to-file
              write
              write-char
              zero?
              ))

(module test-module r5rs (testit)
  (define (testit)
    (* 2 3)))



