diff --git a/piclib/scheme/null.scm b/piclib/scheme/null.scm
new file mode 100644
index 00000000..a949473e
--- /dev/null
+++ b/piclib/scheme/null.scm
@@ -0,0 +1,12 @@
+(define-library (scheme null)
+  (import (scheme base))
+  (export define
+          lambda
+          if
+          quote
+          quasiquote
+          unquote
+          unquote-splicing
+          begin
+          set!
+          define-syntax))
diff --git a/piclib/scheme/r5rs.scm b/piclib/scheme/r5rs.scm
new file mode 100644
index 00000000..e26a999d
--- /dev/null
+++ b/piclib/scheme/r5rs.scm
@@ -0,0 +1,118 @@
+(define-library (scheme r5rs)
+  (import (scheme base)
+          (scheme inexact)
+          (scheme write)
+          (scheme read)
+          (scheme file)
+          (scheme cxr)
+          (scheme lazy)
+          (scheme eval)
+          (scheme load))
+
+  (export * + - / < <= = > >=
+          abs acos and
+          ;; angle
+          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
+          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 define-syntax delay
+          ;; denominator
+          display do dynamic-wind
+          eof-object? eq? equal? eqv? eval even?
+          (rename inexact exact->inexact)
+          exact? exp expt
+          floor for-each force
+          gcd
+          if
+          ;; imag-part
+          (rename exact inexact->exact)
+          inexact? input-port? integer->char integer?
+          ;; interaction-environment
+          lambda lcm length let
+          peek-char procedure?
+          quote
+          rational? read
+          ;; real-part
+          remainder round
+          scheme-report-environment
+          set! set-cdr! sqrt string->list string->symbol
+          ;; string-ci<=? string-ci=? string-ci>?
+          string-fill! string-ref string<=? string=? string>? substring symbol?
+          truncate
+          vector vector-fill! vector-ref vector? with-output-to-file write-char
+          output-port?
+          let-syntax
+          letrec-syntax
+          list->string
+          list-ref
+          list?
+          log
+          ;; make-polar
+          make-string
+          map
+          member
+          memv
+          modulo
+          newline
+          null-environment
+          number->string
+          ;; numerator
+          open-input-file
+          or
+          pair?
+          positive?
+          quasiquote
+          quotient
+          ;; rationalize
+          read-char
+          real?
+          reverse
+          let*
+          letrec
+          list
+          list->vector
+          list-tail
+          load
+          ;; magnitude
+          ;; make-rectangular
+          make-vector
+          max
+          memq
+          min
+          negative?
+          not
+          null?
+          number?
+          odd?
+          open-output-file
+          set-car!
+          sin
+          string
+          string->number
+          string-append
+          ;; string-ci<?
+          ;; string-ci>=?
+          string-copy
+          string-length
+          string-set!
+          string<?
+          string>=?
+          string?
+          symbol->string
+          tan
+          values
+          vector->list
+          vector-length
+          vector-set!
+          with-input-from-file
+          write
+          zero?
+          ))