Non-standard assert macro that immediatly exit the program with code 1 if expr evalutes to false, and display to the standard error output message. Otherwise, if expr evalutes to a truthy value returns that value.
+
(import (live unstable))
+
+
+(alive #t)
+
(* number ...)
+
Multiplication procedure.
+
(+ number ...)
+
Addition procedure.
+
(- number ...)
+
Substraction procedure.
+
(/ number ...)
+
Division procedure. Raise 'numerical-overflow condition in case where denominator is zero.
+
(< number number ...)
+
Less than procedure. Return a boolean.
+
(<= number number ...)
+
Less than or equal procedure. Return a boolean.
+
(= number number ...)
+
Return #t if the numbers passed as parameters are equal. And #f otherwise.
+
(> number number ...)
+
Greater than procedure. Return a boolean.
+
(>= number number ...)
+
Greater than or equal. Return a boolean.
+
(abs number)
+
Return the absolute value of NUMBER.
+
(and test1 ...)
+
The test expressions are evaluated from left to right, and if any expression evaluates to #f, then #f is returned. Any remaining expressions are not evaluated. If all the expressions evaluate to true values, the values of the last expression are returned. If there are no expressions, then #t is returned.
+
(append lst ...)
+
Return the list made of the list passed as parameters in the same order.
+
(apply proc arg1 ... args)
+
The apply procedure calls proc with the elements of the list (append (list arg1 ...) args) as the actual arguments.
+
(assoc obj alist)
+
Return the first pair which car is equal to OBJ according to the predicate equal?. Or it returns #f.
+
(assq obj alist)
+
Return the first pair which car is equal to OBJ according to the predicate eq?. Or it returns #f.
+
(assv obj alist)
+
Return the first pair which car is equal to OBJ according to the predicate eqv?. Or it returns #f.
+
begin syntax
+
There is two uses of begin.
+
(begin expression-or-definition ...)
+
This form of begin can appear as part of a body, or at the outermost level of a program, or at the REPL, or directly nested in a begin that is itself of this form. It causes the contained expressions and definitions to be evaluated exactly as if the enclosing begin construct were not present.
+
TODO: example
+
(begin expression1 expression2 ...)
+
This form of begin can be used as an ordinary expression. The expressions are evaluated sequentially from left to right, and the values of the last expression are returned. This expression type is used to sequence side effects such as assignments or input and output.
+
TODO: example
+
binary-port?
+
TODO: not implemented
+
(boolean=? obj ...)
+
Return #t if the scheme objects passed as arguments are the same boolean. Otherwise it return #f.
+
(boolean? obj)
+
Return #t if OBJ is a boolean. Otherwise #f.
+
(bytevector byte ...)
+
Returns a newly allocated bytevector containing its arguments.
+
(bytevector-append bytevector ...)
+
Returns a newly allocated bytevector whose elements arethe concatenation of the elements in the given bytevectors.
+
(bytevector-copy bytevector [start [end]])
+
Returns a newly allocated bytevector containing the bytes in bytevector between start and end.
+
(bytevector-copy! to at from [start [end]])
+
Copies the bytes of bytevector from between start and end to bytevector TO, starting at at. The order in which bytes are copied is unspecified, except that if the source and destination overlap, copying takes place as if the source is first copied into a temporary bytevector and then into the destination. This can be achieved without allocating storage by making sure to copy in the correct direction in such circumstances.
+
(bytevector-length bytevector)
+
Returns the length of bytevector in bytes as an exact integer.
+
bytevector-u8-ref
+
Returns the Kth byte of BYTEVECTOR. It is an error if K is not a valid index of BYTEVECTOR.
+
bytevector-u8-set!
+
Stores BYTE as the Kth byte of BYTEVECTOR.
+
It is an error if K is not a valid index of BYTEVECTOR.
+
(bytevector? obj)
+
Returns #t if OBJ is a bytevector. Otherwise, #f is returned.
+
caar
+
TODO
+
cadr
+
TODO
+
(call-with-current-continuation proc)
+
It is an error if proc does not accept one argument.
+
The procedure call-with-current-continuation (or its equivalent abbreviation call/cc) packages the current continuation (see the rationale below) as an “escape procedure” and passes it as an argument to proc. The escape procedure is a Scheme procedure that, if it is later called, will abandon whatever continuation is in effect at that later time and will instead use the continuation that was in effect when the escape procedure was created. Calling the escape procedure will cause the invocation of before and after thunks installed using dynamic-wind.
+
The escape procedure accepts the same number of arguments as the continuation to the original call to call-with-current-continuation. Most continuations take only one value. Continuations created by the call-with-values procedure (including the initialization expressions of define-values, let-values, and let-values expressions), take the number of values that the consumer expects. The continuations of all non-final expressions within a sequence of expressions, such as in lambda, case-lambda, begin, let, let, letrec, letrec, let-values, let-values, let-syntax, letrec-syntax, parameterize, guard, case, cond, when, and unless expressions, take an arbitrary number of values because they discard the values passed to them in any event. The effect of passing no values or more than one value to continuations that were not created in one of these ways is unspecified.
+
The escape procedure that is passed to proc has unlimited extent just like any other procedure in Scheme. It can be stored in variables or data structures and can be called as many times as desired. However, like the raise and error procedures, it never returns to its caller.
+
TODO: example
+
(call-with-port port proc)
+
The call-with-port procedure calls PROC with PORT as an argument. If PROC returns, then the PORT is closed automatically and the values yielded by the PROC are returned. If PROC does not return, then the PORT must not be closed automatically unless it is possible to prove that the port will never again be used for a read or write operation.
+
It is an error if PROC does not accept one argument.
+
(call-with-values producer consumer)
+
Calls its producer argument with no arguments and a continuation that, when passed some values, calls the consumer procedure with those values as arguments. The continuation for the call to consumer is the continuation of the call to call-with-values.
+
(call/cc proc)
+
Abbreviation for call-with-continuation.
+
(car pair)
+
Returns the contents of the car field of pair. Note that it is an error to take the car of the empty list.
+
(case <key> <clause1> <clause2> ...) syntax
+
TODO
+
cdar
+
TODO
+
cddr
+
TODO
+
cdr
+
Returns the contents of the cdr field of pair. Note that it is an error to take the cdr of the empty list.
+
(ceiling x)
+
The ceiling procedure returns the smallest integer not smaller than x.
+
(char->integer char)
+
Given a Unicode character, char->integer returns an exact integer between 0 and #xD7FF or between #xE000 and #x10FFFF which is equal to the Unicode scalar value of that character. Given a non-Unicode character, it returns an exact integer greater than #x10FFFF.
+
(char-ready? [port])
+
Returns #t if a character is ready on the textual input port and returns #f otherwise. If char-ready returns #t then the next read-char operation on the given port is guaranteed not to hang. If the port is at end of file then char-ready? returns #t.
+
char<=?
+
TODO
+
char<?
+
TODO
+
char=?
+
TODO
+
char>=?
+
TODO
+
char>?
+
TODO
+
char?
+
Returns #t if obj is a character, otherwise returns #f.
+
(close-input-port port)
+
Closes the resource associated with port, rendering the port incapable of delivering or accepting data.
+
(close-output-port port)
+
Closes the resource associated with port, rendering the port incapable of delivering or accepting data.
+
(close-port port)
+
Closes the resource associated with port, rendering the port incapable of delivering or accepting data.
+
(complex? obj)
+
Returns #t if obj is a complex number, otherwise returns #f.
+
(cond <clause1> ...)
+
TODO
+
cond-expand
+
TODO: not implemented
+
(cons obj1 obj2)
+
Returns a newly allocated pair whose car is obj1 and whose cdr is obj2. The pair is guaranteed to be different (in the sense of eqv?) from every existing object.
+
(current-error-port [port])
+
Returns the current default error port (an output port). That procedure is also a parameter object, which can be overridden with parameterize.
+
(current-input-port [port])
+
Returns the current default input port. That procedure is also a parameter object, which can be overridden with parameterize.
+
current-output-port
+
Returns the current default output port. That procedure is also a parameter object, which can be overridden with parameterize.
+
(define <name> <expr>)
+
TODO
+
(define (<name> <variable> ...) <expr> ...)
+
TODO
+
define-record-type syntax
+
TODO
+
define-syntax
+
TODO
+
(define-values var1 ... expr) syntax
+
creates multiple definitions from a single expression returning multiple values. It is allowed wherever define is allowed.
+
(denominator q)
+
Return the denominator of their argument; the result is computed as if the argument was represented as a fraction in lowest terms. The denominator is always positive. The denominator of 0 is defined to be 1.
+
do
+
TODO
+
(dynamic-wind before thunk after)
+
TODO
+
(eof-object)
+
Returns an end-of-file object, not necessarily unique.
+
(eof-object? obj)
+
Returns #t if obj is an end-of-file object, otherwise returns #f. A end-of-file object will ever be an object that can be read in using read.
+
(eq? obj1 obj2)
+
The eq? procedure is similar to eqv? except that in some cases it is capable of discerning distinctions finer than those detectable by eqv?. It must always return #f when eqv? also would, but may return #f in some cases where eqv? would return #t.
+
On symbols, booleans, the empty list, pairs, and records, and also on non-empty strings, vectors, and bytevectors, eq? and eqv? are guaranteed to have the same behavior. On procedures, eq? must return true if the arguments’ location tags are equal. On numbers and characters, eq?’s behavior is implementation-dependent, but it will always return either true or false. On empty strings, empty vectors, and empty bytevectors, eq? may also behave differently from eqv?.
+
(equal? obj1 obj2)
+
The equal? procedure, when applied to pairs, vectors, strings and bytevectors, recursively compares them, returning #t when the unfoldings of its arguments into (possibly infinite) trees are equal (in the sense of equal?) as ordered trees, and #f otherwise. It returns the same as eqv? when applied to booleans, symbols, numbers, characters, ports, procedures, and the empty list. If two objects are eqv?, they must be equal? as well. In all other cases, equal? may return either #t or #f.
+
Even if its arguments are circular data structures, equal? must always terminate.
+
(eqv? obj1 obj2)
+
The eqv? procedure defines a useful equivalence relation on objects. Briefly, it returns #t if obj1 and obj2 are normally regarded as the same object.
+
TODO: complete based on r7rs small and guile.
+
(error [who] message . irritants)
+
Raises an exception as if by calling raise on a newly allocated implementation-defined object which encapsulates the information provided by message, as well as any objs, known as the irritants. The procedure error-object? must return #t on such objects.
+
(error-object-irritants error)
+
Returns a list of the irritants encapsulated by error.
+
(error-object-message error)
+
Returns the message encapsulated by error.
+
(error-object? obj)
+
Returns #t if obj is an object created by error or one of an implementation-defined set of objects. Otherwise, it returns #f. The objects used to signal errors, including those which satisfy the predicates file-error? and read-error?, may or may not satisfy error-object?.
+
(even? number)
+
Return #t if NUMBER is even. Otherwise #f.
+
(exact z)
+
TODO: FIXME
+
The procedure exact returns an exact representation of z. The value returned is the exact number that is numerically closest to the argument. For exact arguments, the result is the same as the argument. For inexact non-integral real arguments, the implementation may return a rational approximation, or may report an implementation violation. For inexact complex arguments, the result is a complex number whose real and imaginary parts are the result of applying exact to the real and imaginary parts of the argument, respectively. If an inexact argument has no reasonably close exact equivalent, (in the sense of =), then a violation of an implementation restriction may be reported.
+
(exact-integer-sqrt k)
+
TODO
+
(exact-integer? z)
+
Returns #t if z is both exact and an integer; otherwise returns #f.
+
(exact? z)
+
Return #t if Z is exact. Otherwise #f.
+
(expt z1 z2)
+
Returns z1 raised to the power z2.
+
features
+
TODO: no implemented
+
(file-error? error)
+
TODO: not implemented?
+
(floor x)
+
The floor procedure returns the largest integer not larger than x.
+
floor-quotient
+
TODO
+
floor-remainder
+
TODO
+
floor/
+
TODO
+
(flush-output-port [port])
+
Flushes any buffered output from the buffer of output-port to the underlying file or device and returns an unspecified value.
+
(for-each proc list1 ...)
+
It is an error if proc does not accept as many arguments as there are lists.
+
The arguments to for-each are like the arguments to map, but for-each calls proc for its side effects rather than for its values. Unlike map, for-each is guaranteed to call proc on the elements of the lists in order from the first element(s) to the last, and the value returned by for-each is unspecified. If more than one list is given and not all lists have the same length, for-each terminates when the shortest list runs out. The lists can be circular, but it is an error if all of them are circular.
+
(gcd n1 ...)
+
Return the greatest common divisor.
+
(get-output-bytevector port)
+
It is an error if port was not created with open-output-bytevector.
+
Returns a bytevector consisting of the bytes that have been output to the port so far in the order they were output.
+
(get-output-string port)
+
It is an error if port was not created with open-output-string.
+
Returns a string consisting of the characters that have been output to the port so far in the order they were output.
+
(guard <clause> ...) syntax
+
TODO
+
(if <expr> <then> [<else>])
+
TODO
+
include
+
TODO
+
include-ci
+
TODO: not implemented
+
(inexact z)
+
The procedure inexact returns an inexact representation of z. The value returned is the inexact number that is numerically closest to the argument. For inexact arguments, the result is the same as the argument. For exact complex numbers, the result is a complex number whose real and imaginary parts are the result of applying inexact to the real and imaginary parts of the argument, respectively. If an exact argument has no reasonably close inexact equivalent (in the sense of =), then a violation of an implementation restriction may be reported.
+
(inexact? z)
+
Return #t if Z is inexact. Otherwise #f.
+
(input-port-open? port)
+
Returns #t if port is still open and capable of performing input, and #f otherwise.
+
(input-port? obj)
+
Return #t if obj is an input port. Otherwise it return #f.
+
(integer->char integer)
+
Given an exact integer that is the value returned by a character when char->integer is applied to it, integer->char returns that character.
+
(integer? obj)
+
Return #t if OBJ is an integer. Otherwise #f.
+
(lambda <formals> <expr> ...)
+
TODO
+
(lcm n1 ...)
+
Return the least common multiple of its arguments.
+
(length list)
+
Returns the length of list.
+
let
+
TODO
+
let*
+
TODO
+
let*-values
+
TODO
+
let-syntax
+
TODO
+
let-values
+
TODO
+
letrec
+
TODO
+
letrec*
+
TODO
+
letrec-syntax
+
TODO
+
(list obj ...)
+
Returns a newly allocated list of its arguments.
+
(list->string list)
+
It is an error if any element of list is not a character.
+
list->string returns a newly allocated string formed from the elements in the list list.
+
(list->vector list)
+
The list->vector procedure returns a newly created vector initialized to the elements of the list list.
+
(list-copy obj)
+
Returns a newly allocated copy of the given obj if it is a list. Only the pairs themselves are copied; the cars of the result are the same (in the sense of eqv?) as the cars of list. If obj is an improper list, so is the result, and the final cdrs are the same in the sense of eqv?. An obj which is not a list is returned unchanged. It is an error if obj is a circular list.
+
(list-ref list k)
+
The list argument can be circular, but it is an error if list has fewer than k elements.
+
Returns the kth element of list. (This is the same as the car of (list-tail list k).)
+
(list-set! list k obj)
+
It is an error if k is not a valid index of list.
+
The list-set! procedure stores obj in element k of list.
+
(list-tail list k)
+
It is an error if list has fewer than k elements.
+
Returns the sublist of list obtained by omitting the first k elements.
+
(list? obj)
+
Return #t if OBJ is a list. Otherwise #f.
+
(make-bytevector k [byte])
+
The make-bytevector procedure returns a newly allocated bytevector of length k. If byte is given, then all elements of the bytevector are initialized to byte, otherwise the contents of each element are unspecified.
+
(make-list k [fill])
+
Returns a newly allocated list of k elements. If a second argument is given, then each element is initialized to fill. Otherwise the initial contents of each element is unspecified.
+
(make-parameter init [converter])
+
Returns a newly allocated parameter object, which is a procedure that accepts zero arguments and returns the value associated with the parameter object. Initially, this value is the value of (converter init), or of init if the conversion procedure converter is not specified. The associated value can be temporarily changed using parameterize, which is described below.
+
(make-string k [char])
+
The make-string procedure returns a newly allocated string of length k. If char is given, then all the characters of the string are initialized to char, otherwise the contents of the string are unspecified.
+
(make-vector k [fill])
+
Returns a newly allocated vector of k elements. If a second argument is given, then each element is initialized to fill. Otherwise the initial contents of each element is unspecified.
+
(map proc list1 ...)
+
It is an error if proc does not accept as many arguments as there are lists and return a single value.
+
The map procedure applies proc element-wise to the elements of the lists and returns a list of the results, in order. If more than one list is given and not all lists have the same length, map terminates when the shortest list runs out. The lists can be circular, but it is an error if all of them are circular. It is an error for proc to mutate any of the lists. The dynamic order in which proc is applied to the elements of the lists is unspecified. If multiple returns occur from map, the values returned by earlier returns are not mutated.
+
(max x1 ...)
+
Return the maximum of its arguments.
+
(member obj list [compare])
+
Return the first sublist of list whose car is obj, where the sublists of list are the non-empty lists returned by (list-tail list k) for k less than the length of list. If obj does not occur in list, then #f (not the empty list) is returned.
+
Uses compare, if given, and equal? otherwise.
+
(memq obj list)
+
Return the first sublist of list whose car is obj, where the sublists of list are the non-empty lists returned by (list-tail list k) for k less than the length of list. If obj does not occur in list, then #f (not the empty list) is returned.
+
Use eq? for comparison.
+
(memv obj list)
+
Return the first sublist of list whose car is obj, where the sublists of list are the non-empty lists returned by (list-tail list k) for k less than the length of list. If obj does not occur in list, then #f (not the empty list) is returned.
+
Uses eqv? for comparison.
+
(min x1 ...)
+
Return the minimum of its arguments.
+
(modulo n1 n2)
+
modulo is equivalent to floor-remainder. Provided for backward compatibility.
+
(negative? x)
+
Return #t if X is negative. Otherwise #f.
+
(newline [port])
+
Writes an end of line to output port.
+
(not obj)
+
The not procedure returns #t if obj is false, and returns #f otherwise.
+
(null? obj)
+
Returns #t if obj is the empty list, otherwise returns #f.
+
(number->string z [radix])
+
It is an error if radix is not one of 2, 8, 10, or 16.
+
(number? obj)
+
Return #t if OBJ is a number. Otherwise #f.
+
(numerator q)
+
TODO
+
(odd? number)
+
Return #t if NUMBER is odd. Otherwise #f.
+
(open-input-bytevector bytevector)
+
Takes a bytevector and returns a binary input port that delivers bytes from the bytevector.
+
(open-input-string string)
+
Takes a string and returns a textual input port that delivers characters from the string. If the string is modified, the effect is unspecified.
+
(open-output-bytevector)
+
Returns a binary output port that will accumulate bytes for retrieval by get-output-bytevector.
+
(open-output-string)
+
Returns a textual output port that will accumulate characters for retrieval by get-output-string.
+
(or test1 ...) syntax
+
The test expressions are evaluated from left to right, and the value of the first expression that evaluates to a true value is returned. Any remaining expressions are not evaluated. If all expressions evaluate to #f or if there are no expressions, then #f is returned.
+
(output-port-open? port)
+
Returns #t if port is still open and capable of performing output, and #f otherwise.
+
(output-port? obj)
+
Return #t if obj is an output port. Otherwise return #f.
+
(pair? obj)
+
The pair? predicate returns #t if obj is a pair, and otherwise returns #f.
+
(parameterize ((param1 value1) ...) expr ...)
+
A parameterize expression is used to change the values returned by specified parameter objects during the evaluation of the body.
+
The param and value expressions are evaluated in an unspecified order. The body is evaluated in a dynamic environment in which calls to the parameters return the results of passing the corresponding values to the conversion procedure specified when the parameters were created. Then the previous values of the parameters are restored without passing them to the conversion procedure. The results of the last expression in the body are returned as the results of the entire parameterize expression.
+
Note: If the conversion procedure is not idempotent, the results of (parameterize ((x (x))) …), which appears to bind the parameter x to its current value, might not be what the user expects.
+
If an implementation supports multiple threads of execution, then parameterize must not change the associated values of any parameters in any thread other than the current thread and threads created inside body.
+
Parameter objects can be used to specify configurable settings for a computation without the need to pass the value to every procedure in the call chain explicitly.
+
(peek-char [port])
+
Returns the next character available from the textual input port, but without updating the port to point to the following character. If no more characters are available, an end-of-file object is returned.
+
Note: The value returned by a call to peek-char is the same as the value that would have been returned by a call to read-char with the same port. The only difference is that the very next call to read-char or peek-char on that port will return the value returned by the preceding call to peek-char. In particular, a call to peek-char on an interactive port will hang waiting for input whenever a call to read-char would have hung.
+
(peek-u8 [port])
+
Returns the next byte available from the binary input port, but without updating the port to point to the following byte. If no more bytes are available, an end-of-file object is returned.
+
(port? obj)
+
Return #t if OBJ is port. Otherwise #f.
+
(positive? x)
+
Return #t if X is positive. Otherwise #f.
+
(procedure? obj)
+
Return #t if OBJ is a procedure. Otherwise #f.
+
quasiquote
+
TODO
+
quote
+
TODO
+
quotient
+
TODO
+
(raise obj)
+
Raises an exception by invoking the current exception handler on obj. The handler is called with the same dynamic environment as that of the call to raise, except that the current exception handler is the one that was in place when the handler being called was installed. If the handler returns, a secondary exception is raised in the same dynamic environment as the handler. The relationship between obj and the object raised by the secondary exception is unspecified.
+
(raise-continuable obj)
+
Raises an exception by invoking the current exception handler on obj. The handler is called with the same dynamic environment as the call to raise-continuable, except that: (1) the current exception handler is the one that was in place when the handler being called was installed, and (2) if the handler being called returns, then it will again become the current exception handler. If the handler returns, the values it returns become the values returned by the call to raise-continuable.
+
(rational? obj)
+
Return #t if OBJ is a rational number. Otherwise #f.
+
(rationalize x y)
+
The rationalize procedure returns the simplest rational number differing from x by no more than y.
+
(read-bytevector k [port])
+
Reads the next k bytes, or as many as are available before the end of file, from the binary input port into a newly allocated bytevector in left-to-right order and returns the bytevector. If no bytes are available before the end of file, an end-of-file object is returned.
Reads the next end - start bytes, or as many as are available before the end of file, from the binary input port into bytevector in left-to-right order beginning at the start position. If end is not supplied, reads until the end of bytevector has been reached. If start is not supplied, reads beginning at position 0. Returns the number of bytes read. If no bytes are available, an end-of-file object is returned.
+
(read-char [port])
+
Returns the next character available from the textual input port, updating the port to point to the following character. If no more characters are available, an end-of-file object is returned.
+
(read-error? obj)
+
Error type predicates. Returns #t if obj is an object raised by the read procedure. Otherwise, it returns #f.
+
(read-line [port])
+
Returns the next line of text available from the textual input port, updating the port to point to the following character. If an end of line is read, a string containing all of the text up to (but not including) the end of line is returned, and the port is updated to point just past the end of line. If an end of file is encountered before any end of line is read, but some characters have been read, a string containing those characters is returned. If an end of file is encountered before any characters are read, an end-of-file object is returned. For the purpose of this procedure, an end of line consists of either a linefeed character, a carriage return character, or a sequence of a carriage return character followed by a linefeed character. Implementations may also recognize other end of line characters or sequences.
+
(read-string k [port])
+
Reads the next k characters, or as many as are available before the end of file, from the textual input port into a newly allocated string in left-to-right order and returns the string. If no characters are available before the end of file, an end-of-file object is returned.
+
(read-u8 [port])
+
Returns the next byte available from the binary input port, updating the port to point to the following byte. If no more bytes are available, an end-of-file object is returned.
+
(real? obj)
+
Return #t if OBJ is real number. Otherwise #f.
+
(remainder n1 n2)
+
TODO
+
(reverse list)
+
Returns a newly allocated list consisting of the elements of list in reverse order.
+
(round x)
+
TODO
+
(set! <variable> <expression>) syntax
+
Expression is evaluated, and the resulting value is stored in the location to which variable is bound. It is an error if variable is not bound either in some region enclosing the set! expression or else globally. The result of the set! expression is unspecified.
+
(set-car! pair obj)
+
Stores obj in the car field of pair.
+
(set-cdr! pair obj)
+
Stores obj in the cdr field of pair.
+
(square z)
+
Returns the square of z. This is equivalent to (* z z).
+
(string char ...)
+
Returns a newly allocated string composed of the arguments. It is analogous to list.
+
(string->list string [start [end]])
+
The string->list procedure returns a newly allocated list of the characters of string between start and end.
+
(string->number string [radix])
+
Returns a number of the maximally precise representation expressed by the given string. It is an error if radix is not 2, 8, 10, or 16.
+
If supplied, radix is a default radix that will be overridden if an explicit radix prefix is present in string (e.g. “#o177”). If radix is not supplied, then the default radix is 10. If string is not a syntactically valid notation for a number, or would result in a number that the implementation cannot represent, then string->number returns #f. An error is never signaled due to the content of string.
+
(string->symbol string)
+
Returns the symbol whose name is string. This procedure can create symbols with names containing special characters that would require escaping when written, but does not interpret escapes in its input.
+
(string->utf8 string [start [end]])
+
The string->utf8 procedure encodes the characters of a string between start and end and returns the corresponding bytevector.
+
(string->vector string [start [end]])
+
The string->vector procedure returns a newly created vector initialized to the elements of the string string between start and end.
+
(string-append string ...)
+
Returns a newly allocated string whose characters are the concatenation of the characters in the given strings.
+
(string-copy string [start [end]])
+
Returns a newly allocated copy of the part of the given string between start and end.
+
(string-copy! to at from [start [end]])
+
It is an error if at is less than zero or greater than the length of to. It is also an error if (- (string-length to) at) is less than (- end start).
+
Copies the characters of string from between start and end to string to, starting at at. The order in which characters are copied is unspecified, except that if the source and destination overlap, copying takes place as if the source is first copied into a temporary string and then into the destination. This can be achieved without allocating storage by making sure to copy in the correct direction in such circumstances.
+
(string-fill! string fill [start [end]])
+
It is an error if fill is not a character.
+
The string-fill! procedure stores fill in the elements of string between start and end.
+
(string-for-each proc string1 ...)
+
It is an error if proc does not accept as many arguments as there are strings.
+
The arguments to string-for-each are like the arguments to string-map, but string-for-each calls proc for its side effects rather than for its values. Unlike string-map, string-for-each is guaranteed to call proc on the elements of the lists in order from the first element(s) to the last, and the value returned by string-for-each is unspecified. If more than one string is given and not all strings have the same length, string-for-each terminates when the shortest string runs out. It is an error for proc to mutate any of the strings.
+
(string-length string)
+
Returns the number of characters in the given string.
+
(string-map proc string1 ...)
+
It is an error if proc does not accept as many arguments as there are strings and return a single character.
+
The string-map procedure applies proc element-wise to the elements of the strings and returns a string of the results, in order. If more than one string is given and not all strings have the same length, string-map terminates when the shortest string runs out. The dynamic order in which proc is applied to the elements of the strings is unspecified. If multiple returns occur from string-map, the values returned by earlier returns are not mutated.
+
(string-ref string k)
+
It is an error if k is not a valid index of string.
+
The string-ref procedure returns character k of string using zero-origin indexing. There is no requirement for this procedure to execute in constant time.
+
(string-set! string k char)
+
It is an error if k is not a valid index of string.
+
The string-set! procedure stores char in element k of string. There is no requirement for this procedure to execute in constant time.
+
string<=?
+
TODO
+
string<?
+
TODO
+
(string=? string1 string2 ...)
+
Returns #t if all the strings are the same length and contain exactly the same characters in the same positions, otherwise returns #f.
+
string>=?
+
TODO
+
string>?
+
TODO
+
(string? obj)
+
Return #t if OBJ is string. Otherwise #f.
+
(substring string start end)
+
The substring procedure returns a newly allocated string formed from the characters of string beginning with index start and ending with index end. This is equivalent to calling string-copy with the same arguments, but is provided for backward compatibility and stylistic flexibility.
+
(symbol->string symbol)
+
Returns the name of symbol as a string, but without adding escapes. It is an error to apply mutation procedures like string-set! to strings returned by this procedure.
+
(symbol=? symbol1 symbol2 ...)
+
Returns #t if all the arguments are symbols and all have the same names in the sense of string=?.
+
(symbol? obj)
+
Returns #t if obj is a symbol, otherwise returns #f.
+
syntax-error
+
TODO
+
syntax-rules
+
TODO
+
textual-port?
+
TODO
+
(truncate x)
+
TODO
+
truncate-quotient
+
TODO
+
truncate-remainder
+
TODO
+
truncate/
+
TODO
+
(u8-ready? [port])
+
Returns #t if a byte is ready on the binary input port and returns #f otherwise. If u8-ready? returns #t then the next read-u8 operation on the given port is guaranteed not to hang. If the port is at end of file then u8-ready? returns #t.
+
(unless <test> <expr> ...) syntax
+
The test is evaluated, and if it evaluates to #f, the expressions are evaluated in order. The result of the unless expression is unspecified.
+
unquote
+
TODO
+
unquote-splicing
+
TODO
+
(utf8->string bytevector [start [end]])
+
It is an error for bytevector to contain invalid UTF-8 byte sequences.
+
The utf8->string procedure decodes the bytes of a bytevector between start and end and returns the corresponding string.
+
(values obj ...)
+
Delivers all of its arguments to its continuation.
+
(vector obj ...)
+
Returns a newly allocated vector whose elements contain the given arguments. It is analogous to list.
+
(vector->list vector [start [end]])
+
The vector->list procedure returns a newly allocated list of the objects contained in the elements of vector between start and end. The list->vector procedure returns a newly created vector initialized to the elements of the list list.
+
(vector->string vector [start [end]])
+
It is an error if any element of vector between start and end is not a character.
+
The vector->string procedure returns a newly allocated string of the objects contained in the elements of vector between start and end. The string->vector procedure returns a newly created vector initialized to the elements of the string string between start and end.
+
(vector-append vector ...)
+
Returns a newly allocated vector whose elements are the concatenation of the elements of the given vectors.
+
(vector-copy vector [start [end]])
+
Returns a newly allocated copy of the elements of the given vector between start and end. The elements of the new vector are the same (in the sense of eqv?) as the elements of the old.
+
(vector-copy! to at from [start [end]])
+
It is an error if at is less than zero or greater than the length of to. It is also an error if (- (vector-length to) at) is less than (- end start).
+
Copies the elements of vector from between start and end to vector to, starting at at. The order in which elements are copied is unspecified, except that if the source and destination overlap, copying takes place as if the source is first copied into a temporary vector and then into the destination. This can be achieved without allocating storage by making sure to copy in the correct direction in such circumstances.
+
(vector-fill! vector fill [start [end]])
+
The vector-fill! procedure stores fill in the elements of vector between start and end.
+
(vector-for-each proc vector1 ...)
+
It is an error if proc does not accept as many arguments as there are vectors.
+
The arguments to vector-for-each are like the arguments to vector-map, but vector-for-each calls proc for its side effects rather than for its values. Unlike vector-map, vector-for-each is guaranteed to call proc on the elements of the vectors in order from the first element(s) to the last, and the value returned by vector-for-each is unspecified. If more than one vector is given and not all vectors have the same length, vector-for-each terminates when the shortest vector runs out. It is an error for proc to mutate any of the vectors.
+
(vector-length vector)
+
Returns the number of elements in vector as an exact integer.
+
(vector-map proc vector1 ...)
+
It is an error if proc does not accept as many arguments as there are vectors and return a single value.
+
The vector-map procedure applies proc element-wise to the elements of the vectors and returns a vector of the results, in order. If more than one vector is given and not all vectors have the same length, vector-map terminates when the shortest vector runs out. The dynamic order in which proc is applied to the elements of the vectors is unspecified. If multiple returns occur from vector-map, the values returned by earlier returns are not mutated.
+
(vector-ref vector k)
+
It is an error if k is not a valid index of vector.
+
The vector-ref procedure returns the contents of element k of vector.
+
(vector-set! vector k obj)
+
It is an error if k is not a valid index of vector.
+
The vector-set! procedure stores obj in element k of vector.
+
vector?
+
Returns #t if obj is a bytevector. Otherwise, #f is returned.
+
(when <test> <expr> ...) syntax
+
The test is evaluated, and if it evaluates to a true value, the expressions are evaluated in order. The result of the when expression is unspecified.
Writes the bytes of bytevector from start to end in left-to-right order to the binary output port.
+
(write-char char [port])
+
Writes the character char (not an external representation of the character) to the given textual output port and returns an unspecified value.
+
(write-string string [port [start [end]]])
+
Writes the characters of string from start to end in left-to-right order to the textual output port.
+
(write-u8 byte [port])
+
Writes the byte to the given binary output port and returns an unspecified value.
+
(zero? z)
+
Return #t if z is zero. Otherwise #f.
+
+
diff --git a/live/unstable/index.md b/live/unstable/index.md
new file mode 100644
index 0000000..910660f
--- /dev/null
+++ b/live/unstable/index.md
@@ -0,0 +1,1404 @@
+# `(live unstable)`
+
+## `(pk object ...)`
+
+Print `object ...` to standard error output and return the last
+object.
+
+## `(assume expr message)` syntax
+
+Non-standard assert macro that immediatly exit the program with code
+`255` if `expr` evalutes to false, and display to the standard error
+output `message`. Otherwise, if `expr` evalutes to a truthy value
+returns that value.
+
+Note: it is based on [SRFI-145](https://srfi.schemers.org/srfi-145/)
+
+## `(* number ...)`
+
+Multiplication procedure.
+
+## `(+ number ...)`
+
+Addition procedure.
+
+## `(- number ...)`
+
+Substraction procedure.
+
+## `(/ number ...)`
+
+Division procedure. Raise `'numerical-overflow` condition in case
+where denominator is zero.
+
+## `(< number number ...)`
+
+Less than procedure. Return a boolean.
+
+## `(<= number number ...)`
+
+Less than or equal procedure. Return a boolean.
+
+## `(= number number ...)`
+
+Return `#t` if the numbers passed as parameters are equal. And `#f` otherwise.
+
+## `(> number number ...)`
+
+Greater than procedure. Return a boolean.
+
+## `(>= number number ...)`
+
+Greater than or equal. Return a boolean.
+
+## `(abs number)`
+
+Return the absolute value of `NUMBER`.
+
+## `(and test1 ...)`
+
+The `test` expressions are evaluated from left to right, and if any
+expression evaluates to `#f`, then `#f` is returned. Any remaining
+expressions are not evaluated. If all the expressions evaluate to
+true values, the values of the last expression are returned. If there
+are no expressions, then `#t` is returned.
+
+## `(append lst ...)`
+
+Return the list made of the list passed as parameters in the same
+order.
+
+## `(apply proc arg1 ... args)`
+
+The apply procedure calls proc with the elements of the list `(append
+(list arg1 ...) args)` as the actual arguments.
+
+## `(assoc obj alist)`
+
+Return the first pair which `car` is equal to `OBJ` according to the
+predicate `equal?`. Or it returns `#f`.
+
+## `(assq obj alist)`
+
+Return the first pair which `car` is equal to `OBJ` according to the
+predicate `eq?`. Or it returns `#f`.
+
+## `(assv obj alist)`
+
+Return the first pair which `car` is equal to `OBJ` according to the
+predicate `eqv?`. Or it returns `#f`.
+
+## `begin` syntax
+
+There is two uses of `begin`.
+
+### `(begin expression-or-definition ...)`
+
+This form of begin can appear as part of a body, or at the outermost
+level of a program, or at the REPL, or directly nested in a begin that
+is itself of this form. It causes the contained expressions and
+definitions to be evaluated exactly as if the enclosing begin
+construct were not present.
+
+TODO: example
+
+### `(begin expression1 expression2 ...)`
+
+This form of begin can be used as an ordinary expression. The
+expressions are evaluated sequentially from left to right, and the
+values of the last expression are returned. This expression type is
+used to sequence side effects such as assignments or input and output.
+
+TODO: example
+
+## `binary-port?`
+
+TODO: not implemented
+
+## `(boolean=? obj ...)`
+
+Return `#t` if the scheme objects passed as arguments are the same
+boolean. Otherwise it return `#f`.
+
+## `(boolean? obj)`
+
+Return `#t` if `OBJ` is a boolean. Otherwise `#f`.
+
+## `(bytevector byte ...)`
+
+Returns a newly allocated bytevector containing its arguments.
+
+## `(bytevector-append bytevector ...)`
+
+Returns a newly allocated bytevector whose elements arethe
+concatenation of the elements in the given bytevectors.
+
+## `(bytevector-copy bytevector [start [end]])`
+
+Returns a newly allocated bytevector containing the bytes in
+bytevector between start and end.
+
+## `(bytevector-copy! to at from [start [end]])`
+
+Copies the bytes of bytevector `from` between `start` and `end` to
+bytevector `TO`, starting at `at`. The order in which bytes are
+copied is unspecified, except that if the source and destination
+overlap, copying takes place as if the source is first copied into a
+temporary bytevector and then into the destination. This can be
+achieved without allocating storage by making sure to copy in the
+correct direction in such circumstances.
+
+## `(bytevector-length bytevector)`
+
+Returns the length of bytevector in bytes as an exact integer.
+
+## `bytevector-u8-ref`
+
+Returns the `K`th byte of `BYTEVECTOR`. It is an error if `K` is not a valid index of `BYTEVECTOR`.
+
+## `bytevector-u8-set!`
+
+Stores `BYTE` as the `K`th byte of `BYTEVECTOR`.
+
+It is an error if `K` is not a valid index of `BYTEVECTOR`.
+
+## `(bytevector? obj)`
+
+Returns `#t` if `OBJ` is a bytevector. Otherwise, `#f` is returned.
+
+## `caar`
+
+TODO
+
+## `cadr`
+
+TODO
+
+## `(call-with-current-continuation proc)`
+
+It is an error if proc does not accept one argument.
+
+The procedure call-with-current-continuation (or its equivalent
+abbreviation call/cc) packages the current continuation (see the
+rationale below) as an “escape procedure” and passes it as an argument
+to proc. The escape procedure is a Scheme procedure that, if it is
+later called, will abandon whatever continuation is in effect at that
+later time and will instead use the continuation that was in effect
+when the escape procedure was created. Calling the escape procedure
+will cause the invocation of before and after thunks installed using
+dynamic-wind.
+
+The escape procedure accepts the same number of arguments as the
+continuation to the original call to
+call-with-current-continuation. Most continuations take only one
+value. Continuations created by the call-with-values procedure
+(including the initialization expressions of define-values,
+let-values, and let*-values expressions), take the number of values
+that the consumer expects. The continuations of all non-final
+expressions within a sequence of expressions, such as in lambda,
+case-lambda, begin, let, let*, letrec, letrec*, let-values,
+let*-values, let-syntax, letrec-syntax, parameterize, guard, case,
+cond, when, and unless expressions, take an arbitrary number of values
+because they discard the values passed to them in any event. The
+effect of passing no values or more than one value to continuations
+that were not created in one of these ways is unspecified.
+
+The escape procedure that is passed to proc has unlimited extent just
+like any other procedure in Scheme. It can be stored in variables or
+data structures and can be called as many times as desired. However,
+like the raise and error procedures, it never returns to its caller.
+
+TODO: example
+
+## `(call-with-port port proc)`
+
+The `call-with-port` procedure calls `PROC` with `PORT` as an
+argument. If `PROC` returns, then the `PORT` is closed automatically
+and the values yielded by the `PROC` are returned. If `PROC` does not
+return, then the `PORT` must not be closed automatically unless it is
+possible to prove that the port will never again be used for a read or
+write operation.
+
+It is an error if `PROC` does not accept one argument.
+
+## `(call-with-values producer consumer)`
+
+Calls its producer argument with no arguments and a continuation that,
+when passed some values, calls the consumer procedure with those
+values as arguments. The continuation for the call to consumer is the
+continuation of the call to `call-with-values`.
+
+## `(call/cc proc)`
+
+Abbreviation for `call-with-continuation`.
+
+## `(car pair)`
+
+Returns the contents of the car field of pair. Note that it is an
+error to take the `car` of the empty list.
+
+## `(case ...)` syntax
+
+TODO
+
+## `cdar`
+
+TODO
+
+## `cddr`
+
+TODO
+
+## `cdr`
+
+Returns the contents of the `cdr` field of pair. Note that it is an
+error to take the `cdr` of the empty list.
+
+## `(ceiling x)`
+
+The ceiling procedure returns the smallest integer not smaller than x.
+
+## `(char->integer char)`
+
+Given a Unicode character, `char->integer` returns an exact integer
+between 0 and #xD7FF or between #xE000 and #x10FFFF which is equal to
+the Unicode scalar value of that character. Given a non-Unicode
+character, it returns an exact integer greater than #x10FFFF.
+
+## `(char-ready? [port])`
+
+Returns #t if a character is ready on the textual input port and
+returns #f otherwise. If char-ready returns #t then the next read-char
+operation on the given port is guaranteed not to hang. If the port is
+at end of file then char-ready? returns #t.
+
+## `char<=?`
+
+TODO
+
+## `char=?`
+
+TODO
+
+## `char>?`
+
+TODO
+
+## `char?`
+
+Returns #t if obj is a character, otherwise returns #f.
+
+## `(close-input-port port)`
+
+Closes the resource associated with port, rendering the port incapable
+of delivering or accepting data.
+
+## `(close-output-port port)`
+
+Closes the resource associated with port, rendering the port incapable
+of delivering or accepting data.
+
+## `(close-port port)`
+
+Closes the resource associated with port, rendering the port incapable
+of delivering or accepting data.
+
+## `(complex? obj)`
+
+Returns #t if obj is a complex number, otherwise returns #f.
+
+## `(cond ...)`
+
+TODO
+
+## `cond-expand`
+
+TODO: not implemented
+
+## `(cons obj1 obj2)`
+
+Returns a newly allocated pair whose car is obj1 and whose cdr is
+obj2. The pair is guaranteed to be different (in the sense of eqv?)
+from every existing object.
+
+## `(current-error-port [port])`
+
+Returns the current default error port (an output port). That
+procedure is also a parameter object, which can be overridden with
+`parameterize`.
+
+## `(current-input-port [port])`
+
+Returns the current default input port. That procedure is also a
+parameter object, which can be overridden with `parameterize`.
+
+## `current-output-port`
+
+Returns the current default output port. That procedure is also a
+parameter object, which can be overridden with `parameterize`.
+
+## `(define )`
+
+TODO
+
+## `(define ( ...) ...)`
+
+TODO
+
+## `define-record-type` syntax
+
+TODO
+
+## `define-syntax`
+
+TODO
+
+## `(define-values var1 ... expr)` syntax
+
+creates multiple definitions from a single expression returning
+multiple values. It is allowed wherever define is allowed.
+
+## `(denominator q)`
+
+Return the denominator of their argument; the result is computed as if
+the argument was represented as a fraction in lowest terms. The
+denominator is always positive. The denominator of 0 is defined to be
+1.
+
+## `do`
+
+TODO
+
+## `(dynamic-wind before thunk after)`
+
+TODO
+
+## `(eof-object)`
+
+Returns an end-of-file object, not necessarily unique.
+
+## `(eof-object? obj)`
+
+Returns #t if obj is an end-of-file object, otherwise returns #f. A
+end-of-file object will ever be an object that can be read in using
+read.
+
+## `(eq? obj1 obj2)`
+
+The eq? procedure is similar to eqv? except that in some cases it is
+capable of discerning distinctions finer than those detectable by
+eqv?. It must always return #f when eqv? also would, but may return #f
+in some cases where eqv? would return #t.
+
+On symbols, booleans, the empty list, pairs, and records, and also on
+non-empty strings, vectors, and bytevectors, eq? and eqv? are
+guaranteed to have the same behavior. On procedures, eq? must return
+true if the arguments’ location tags are equal. On numbers and
+characters, eq?’s behavior is implementation-dependent, but it will
+always return either true or false. On empty strings, empty vectors,
+and empty bytevectors, eq? may also behave differently from eqv?.
+
+## `(equal? obj1 obj2)`
+
+The equal? procedure, when applied to pairs, vectors, strings and
+bytevectors, recursively compares them, returning #t when the
+unfoldings of its arguments into (possibly infinite) trees are equal
+(in the sense of equal?) as ordered trees, and #f otherwise. It
+returns the same as eqv? when applied to booleans, symbols, numbers,
+characters, ports, procedures, and the empty list. If two objects are
+eqv?, they must be equal? as well. In all other cases, equal? may
+return either #t or #f.
+
+Even if its arguments are circular data structures, equal? must always
+terminate.
+
+## `(eqv? obj1 obj2)`
+
+The eqv? procedure defines a useful equivalence relation on
+objects. Briefly, it returns #t if obj1 and obj2 are normally regarded
+as the same object.
+
+TODO: complete based on r7rs small and guile.
+
+## `(error [who] message . irritants)`
+
+Raises an exception as if by calling raise on a newly allocated
+implementation-defined object which encapsulates the information
+provided by message, as well as any objs, known as the irritants. The
+procedure error-object? must return #t on such objects.
+
+## `(error-object-irritants error)`
+
+Returns a list of the irritants encapsulated by error.
+
+## `(error-object-message error)`
+
+Returns the message encapsulated by error.
+
+## `(error-object? obj)`
+
+Returns #t if obj is an object created by `error` or one of an
+implementation-defined set of objects. Otherwise, it returns #f. The
+objects used to signal errors, including those which satisfy the
+predicates `file-error?` and `read-error?`, may or may not satisfy
+`error-object?`.
+
+## `(even? number)`
+
+Return `#t` if `NUMBER` is even. Otherwise `#f`.
+
+## `(exact z)`
+
+TODO: FIXME
+
+The procedure exact returns an exact representation of z. The value
+returned is the exact number that is numerically closest to the
+argument. For exact arguments, the result is the same as the
+argument. For inexact non-integral real arguments, the implementation
+may return a rational approximation, or may report an implementation
+violation. For inexact complex arguments, the result is a complex
+number whose real and imaginary parts are the result of applying exact
+to the real and imaginary parts of the argument, respectively. If an
+inexact argument has no reasonably close exact equivalent, (in the
+sense of `=`), then a violation of an implementation restriction may
+be reported.
+
+## `(exact-integer-sqrt k)`
+
+TODO
+
+## `(exact-integer? z)`
+
+Returns #t if z is both exact and an integer; otherwise returns #f.
+
+## `(exact? z)`
+
+Return `#t` if `Z` is exact. Otherwise `#f`.
+
+## `(expt z1 z2)`
+
+Returns `z1` raised to the power `z2`.
+
+## `features`
+
+TODO: no implemented
+
+## `(file-error? error)`
+
+TODO: not implemented?
+
+## `(floor x)`
+
+The floor procedure returns the largest integer not larger than x.
+
+## `floor-quotient`
+
+TODO
+
+## `floor-remainder`
+
+TODO
+
+## `floor/`
+
+TODO
+
+## `(flush-output-port [port])`
+
+Flushes any buffered output from the buffer of output-port to the
+underlying file or device and returns an unspecified value.
+
+## `(for-each proc list1 ...)`
+
+It is an error if proc does not accept as many arguments as there are
+lists.
+
+The arguments to for-each are like the arguments to map, but for-each
+calls proc for its side effects rather than for its values. Unlike
+map, for-each is guaranteed to call proc on the elements of the lists
+in order from the first element(s) to the last, and the value returned
+by for-each is unspecified. If more than one list is given and not all
+lists have the same length, for-each terminates when the shortest list
+runs out. The lists can be circular, but it is an error if all of them
+are circular.
+
+## `(gcd n1 ...)`
+
+Return the greatest common divisor.
+
+## `(get-output-bytevector port)`
+
+It is an error if port was not created with `open-output-bytevector`.
+
+Returns a bytevector consisting of the bytes that have been output to
+the port so far in the order they were output.
+
+## `(get-output-string port)`
+
+It is an error if port was not created with open-output-string.
+
+Returns a string consisting of the characters that have been output to
+the port so far in the order they were output.
+
+## `(guard ...)` syntax
+
+TODO
+
+## `(if [])`
+
+TODO
+
+## `include`
+
+TODO
+
+## `include-ci`
+
+TODO: not implemented
+
+## `(inexact z)`
+
+The procedure inexact returns an inexact representation of z. The
+value returned is the inexact number that is numerically closest to
+the argument. For inexact arguments, the result is the same as the
+argument. For exact complex numbers, the result is a complex number
+whose real and imaginary parts are the result of applying inexact to
+the real and imaginary parts of the argument, respectively. If an
+exact argument has no reasonably close inexact equivalent (in the
+sense of `=`), then a violation of an implementation restriction may
+be reported.
+
+## `(inexact? z)`
+
+Return `#t` if `Z` is inexact. Otherwise `#f`.
+
+## `(input-port-open? port)`
+
+Returns #t if port is still open and capable of performing input, and
+`#f` otherwise.
+
+## `(input-port? obj)`
+
+Return `#t` if obj is an input port. Otherwise it return `#f`.
+
+## `(integer->char integer)`
+
+Given an exact integer that is the value returned by a character when
+char->integer is applied to it, integer->char returns that character.
+
+## `(integer? obj)`
+
+Return `#t` if `OBJ` is an integer. Otherwise `#f`.
+
+## `(lambda ...)`
+
+TODO
+
+## `(lcm n1 ...)`
+
+Return the least common multiple of its arguments.
+
+## `(length list)`
+
+Returns the length of list.
+
+## `let`
+
+TODO
+
+## `let*`
+
+TODO
+
+## `let*-values`
+
+TODO
+
+## `let-syntax`
+
+TODO
+
+## `let-values`
+
+TODO
+
+## `letrec`
+
+TODO
+
+## `letrec*`
+
+TODO
+
+## `letrec-syntax`
+
+TODO
+
+## `(list obj ...)`
+
+Returns a newly allocated list of its arguments.
+
+## `(list->string list)`
+
+It is an error if any element of list is not a character.
+
+list->string returns a newly allocated string formed from the elements
+in the list list.
+
+## `(list->vector list)`
+
+The list->vector procedure returns a newly created vector initialized
+to the elements of the list list.
+
+## `(list-copy obj)`
+
+Returns a newly allocated copy of the given obj if it is a list. Only
+the pairs themselves are copied; the cars of the result are the same
+(in the sense of eqv?) as the cars of list. If obj is an improper
+list, so is the result, and the final cdrs are the same in the sense
+of eqv?. An obj which is not a list is returned unchanged. It is an
+error if obj is a circular list.
+
+## `(list-ref list k)`
+
+The list argument can be circular, but it is an error if list has
+fewer than k elements.
+
+Returns the kth element of list. (This is the same as the car of
+(list-tail list k).)
+
+## `(list-set! list k obj)`
+
+It is an error if k is not a valid index of list.
+
+The list-set! procedure stores obj in element k of list.
+
+## `(list-tail list k)`
+
+It is an error if list has fewer than k elements.
+
+Returns the sublist of list obtained by omitting the first k elements.
+
+## `(list? obj)`
+
+Return `#t` if `OBJ` is a list. Otherwise `#f`.
+
+## `(make-bytevector k [byte])`
+
+The make-bytevector procedure returns a newly allocated bytevector of
+length k. If byte is given, then all elements of the bytevector are
+initialized to byte, otherwise the contents of each element are
+unspecified.
+
+## `(make-list k [fill])`
+
+Returns a newly allocated list of k elements. If a second argument is
+given, then each element is initialized to fill. Otherwise the initial
+contents of each element is unspecified.
+
+## `(make-parameter init [converter])`
+
+Returns a newly allocated parameter object, which is a procedure that
+accepts zero arguments and returns the value associated with the
+parameter object. Initially, this value is the value of (converter
+init), or of init if the conversion procedure converter is not
+specified. The associated value can be temporarily changed using
+parameterize, which is described below.
+
+## `(make-string k [char])`
+
+The make-string procedure returns a newly allocated string of length
+k. If char is given, then all the characters of the string are
+initialized to char, otherwise the contents of the string are
+unspecified.
+
+## `(make-vector k [fill])`
+
+Returns a newly allocated vector of k elements. If a second argument
+is given, then each element is initialized to fill. Otherwise the
+initial contents of each element is unspecified.
+
+## `(map proc list1 ...)`
+
+It is an error if proc does not accept as many arguments as there are
+lists and return a single value.
+
+The map procedure applies proc element-wise to the elements of the
+lists and returns a list of the results, in order. If more than one
+list is given and not all lists have the same length, map terminates
+when the shortest list runs out. The lists can be circular, but it is
+an error if all of them are circular. It is an error for proc to
+mutate any of the lists. The dynamic order in which proc is applied to
+the elements of the lists is unspecified. If multiple returns occur
+from map, the values returned by earlier returns are not mutated.
+
+## `(max x1 ...)`
+
+Return the maximum of its arguments.
+
+## `(member obj list [compare])`
+
+Return the first sublist of list whose `car` is `obj`, where the
+sublists of list are the non-empty lists returned by (list-tail list
+k) for k less than the length of list. If `obj` does not occur in
+`list`, then `#f` (not the empty list) is returned.
+
+Uses `compare`, if given, and `equal?` otherwise.
+
+## `(memq obj list)`
+
+Return the first sublist of list whose `car` is `obj`, where the
+sublists of list are the non-empty lists returned by (list-tail list
+k) for k less than the length of list. If `obj` does not occur in
+`list`, then `#f` (not the empty list) is returned.
+
+Use `eq?` for comparison.
+
+## `(memv obj list)`
+
+Return the first sublist of list whose `car` is `obj`, where the
+sublists of list are the non-empty lists returned by (list-tail list
+k) for k less than the length of list. If `obj` does not occur in
+`list`, then `#f` (not the empty list) is returned.
+
+Uses `eqv?` for comparison.
+
+## `(min x1 ...)`
+
+Return the minimum of its arguments.
+
+## `(modulo n1 n2)`
+
+`modulo` is equivalent to `floor-remainder`. Provided for backward compatibility.
+
+## `(negative? x)`
+
+Return `#t` if `X` is negative. Otherwise `#f`.
+
+## `(newline [port])`
+
+Writes an end of line to output port.
+
+## `(not obj)`
+
+The not procedure returns #t if obj is false, and returns #f otherwise.
+
+## `(null? obj)`
+
+Returns #t if obj is the empty list, otherwise returns #f.
+
+## `(number->string z [radix])`
+
+It is an error if radix is not one of 2, 8, 10, or 16.
+
+## `(number? obj)`
+
+Return `#t` if `OBJ` is a number. Otherwise `#f`.
+
+## `(numerator q)`
+
+TODO
+
+## `(odd? number)`
+
+Return `#t` if `NUMBER` is odd. Otherwise `#f`.
+
+## `(open-input-bytevector bytevector)`
+
+Takes a bytevector and returns a binary input port that delivers bytes
+from the bytevector.
+
+## `(open-input-string string)`
+
+Takes a string and returns a textual input port that delivers
+characters from the string. If the string is modified, the effect is
+unspecified.
+
+## `(open-output-bytevector)`
+
+Returns a binary output port that will accumulate bytes for retrieval
+by `get-output-bytevector`.
+
+## `(open-output-string)`
+
+Returns a textual output port that will accumulate characters for
+retrieval by `get-output-string`.
+
+## `(or test1 ...)` syntax
+
+The `test` expressions are evaluated from left to right, and the value
+of the first expression that evaluates to a true value is
+returned. Any remaining expressions are not evaluated. If all
+expressions evaluate to #f or if there are no expressions, then #f is
+returned.
+
+## `(output-port-open? port)`
+
+Returns #t if port is still open and capable of performing output, and
+#f otherwise.
+
+## `(output-port? obj)`
+
+Return #t if obj is an output port. Otherwise return #f.
+
+## `(pair? obj)`
+
+The pair? predicate returns #t if obj is a pair, and otherwise returns #f.
+
+## `(parameterize ((param1 value1) ...) expr ...)`
+
+A parameterize expression is used to change the values returned by
+specified parameter objects during the evaluation of the body.
+
+The param and value expressions are evaluated in an unspecified
+order. The body is evaluated in a dynamic environment in which calls
+to the parameters return the results of passing the corresponding
+values to the conversion procedure specified when the parameters were
+created. Then the previous values of the parameters are restored
+without passing them to the conversion procedure. The results of the
+last expression in the body are returned as the results of the entire
+parameterize expression.
+
+Note: If the conversion procedure is not idempotent, the results of
+(parameterize ((x (x))) ...), which appears to bind the parameter x to
+its current value, might not be what the user expects.
+
+If an implementation supports multiple threads of execution, then
+parameterize must not change the associated values of any parameters
+in any thread other than the current thread and threads created inside
+body.
+
+Parameter objects can be used to specify configurable settings for a
+computation without the need to pass the value to every procedure in
+the call chain explicitly.
+
+## `(peek-char [port])`
+
+Returns the next character available from the textual input port, but
+without updating the port to point to the following character. If no
+more characters are available, an end-of-file object is returned.
+
+Note: The value returned by a call to peek-char is the same as the
+value that would have been returned by a call to read-char with the
+same port. The only difference is that the very next call to read-char
+or peek-char on that port will return the value returned by the
+preceding call to peek-char. In particular, a call to peek-char on an
+interactive port will hang waiting for input whenever a call to
+read-char would have hung.
+
+## `(peek-u8 [port])`
+
+Returns the next byte available from the binary input port, but
+without updating the port to point to the following byte. If no more
+bytes are available, an end-of-file object is returned.
+
+## `(port? obj)`
+
+Return `#t` if `OBJ` is port. Otherwise `#f`.
+
+## `(positive? x)`
+
+Return `#t` if `X` is positive. Otherwise `#f`.
+
+## `(procedure? obj)`
+
+Return `#t` if `OBJ` is a procedure. Otherwise `#f`.
+
+## `quasiquote`
+
+TODO
+
+## `quote`
+
+TODO
+
+## `quotient`
+
+TODO
+
+## `(raise obj)`
+
+Raises an exception by invoking the current exception handler on
+obj. The handler is called with the same dynamic environment as that
+of the call to raise, except that the current exception handler is the
+one that was in place when the handler being called was installed. If
+the handler returns, a secondary exception is raised in the same
+dynamic environment as the handler. The relationship between obj and
+the object raised by the secondary exception is unspecified.
+
+## `(raise-continuable obj)`
+
+Raises an exception by invoking the current exception handler on
+obj. The handler is called with the same dynamic environment as the
+call to raise-continuable, except that: (1) the current exception
+handler is the one that was in place when the handler being called was
+installed, and (2) if the handler being called returns, then it will
+again become the current exception handler. If the handler returns,
+the values it returns become the values returned by the call to
+raise-continuable.
+
+## `(rational? obj)`
+
+Return `#t` if `OBJ` is a rational number. Otherwise `#f`.
+
+## `(rationalize x y)`
+
+The rationalize procedure returns the simplest rational number
+differing from x by no more than y.
+
+## `(read-bytevector k [port])`
+
+Reads the next k bytes, or as many as are available before the end of
+file, from the binary input port into a newly allocated bytevector in
+left-to-right order and returns the bytevector. If no bytes are
+available before the end of file, an end-of-file object is returned.
+
+## `(read-bytevector! bytevector [port [start [end]]])`
+
+Reads the next end - start bytes, or as many as are available before
+the end of file, from the binary input port into bytevector in
+left-to-right order beginning at the start position. If end is not
+supplied, reads until the end of bytevector has been reached. If start
+is not supplied, reads beginning at position 0. Returns the number of
+bytes read. If no bytes are available, an end-of-file object is
+returned.
+
+## `(read-char [port])`
+
+Returns the next character available from the textual input port,
+updating the port to point to the following character. If no more
+characters are available, an end-of-file object is returned.
+
+## `(read-error? obj)`
+
+Error type predicates. Returns #t if obj is an object raised by the
+read procedure. Otherwise, it returns #f.
+
+## `(read-line [port])`
+
+Returns the next line of text available from the textual input port,
+updating the port to point to the following character. If an end of
+line is read, a string containing all of the text up to (but not
+including) the end of line is returned, and the port is updated to
+point just past the end of line. If an end of file is encountered
+before any end of line is read, but some characters have been read, a
+string containing those characters is returned. If an end of file is
+encountered before any characters are read, an end-of-file object is
+returned. For the purpose of this procedure, an end of line consists
+of either a linefeed character, a carriage return character, or a
+sequence of a carriage return character followed by a linefeed
+character. Implementations may also recognize other end of line
+characters or sequences.
+
+## `(read-string k [port])`
+
+Reads the next k characters, or as many as are available before the
+end of file, from the textual input port into a newly allocated string
+in left-to-right order and returns the string. If no characters are
+available before the end of file, an end-of-file object is returned.
+
+## `(read-u8 [port])`
+
+Returns the next byte available from the binary input port, updating
+the port to point to the following byte. If no more bytes are
+available, an end-of-file object is returned.
+
+## `(real? obj)`
+
+Return #t if `OBJ` is real number. Otherwise `#f`.
+
+## `(remainder n1 n2)`
+
+TODO
+
+## `(reverse list)`
+
+Returns a newly allocated list consisting of the elements of list in
+reverse order.
+
+## `(round x)`
+
+TODO
+
+## `(set! )` syntax
+
+Expression is evaluated, and the resulting value is stored in the
+location to which variable is bound. It is an error if variable is not
+bound either in some region enclosing the set! expression or else
+globally. The result of the set! expression is unspecified.
+
+## `(set-car! pair obj)`
+
+Stores `obj` in the car field of `pair`.
+
+## `(set-cdr! pair obj)`
+
+Stores obj in the cdr field of pair.
+
+## `(square z)`
+
+Returns the square of z. This is equivalent to (* z z).
+
+## `(string char ...)`
+
+Returns a newly allocated string composed of the arguments. It is
+analogous to list.
+
+## `(string->list string [start [end]])`
+
+The string->list procedure returns a newly allocated list of the
+characters of string between start and end.
+
+
+## `(string->number string [radix])`
+
+Returns a number of the maximally precise representation expressed by
+the given string. It is an error if radix is not 2, 8, 10, or 16.
+
+If supplied, radix is a default radix that will be overridden if an
+explicit radix prefix is present in string (e.g. "#o177"). If radix is
+not supplied, then the default radix is 10. If string is not a
+syntactically valid notation for a number, or would result in a number
+that the implementation cannot represent, then string->number returns
+#f. An error is never signaled due to the content of string.
+
+## `(string->symbol string)`
+
+Returns the symbol whose name is string. This procedure can create
+symbols with names containing special characters that would require
+escaping when written, but does not interpret escapes in its input.
+
+## `(string->utf8 string [start [end]])`
+
+The string->utf8 procedure encodes the characters of a string between
+start and end and returns the corresponding bytevector.
+
+## `(string->vector string [start [end]])`
+
+The string->vector procedure returns a newly created vector
+initialized to the elements of the string string between start and
+end.
+
+## `(string-append string ...)`
+
+Returns a newly allocated string whose characters are the
+concatenation of the characters in the given strings.
+
+## `(string-copy string [start [end]])`
+
+Returns a newly allocated copy of the part of the given string between
+start and end.
+
+## `(string-copy! to at from [start [end]])`
+
+It is an error if at is less than zero or greater than the length of
+to. It is also an error if (- (string-length to) at) is less than (-
+end start).
+
+Copies the characters of string from between start and end to string
+to, starting at at. The order in which characters are copied is
+unspecified, except that if the source and destination overlap,
+copying takes place as if the source is first copied into a temporary
+string and then into the destination. This can be achieved without
+allocating storage by making sure to copy in the correct direction in
+such circumstances.
+
+## `(string-fill! string fill [start [end]])`
+
+It is an error if fill is not a character.
+
+The string-fill! procedure stores fill in the elements of string
+between start and end.
+
+## `(string-for-each proc string1 ...)`
+
+It is an error if proc does not accept as many arguments as there are
+strings.
+
+The arguments to string-for-each are like the arguments to string-map,
+but string-for-each calls proc for its side effects rather than for
+its values. Unlike string-map, string-for-each is guaranteed to call
+proc on the elements of the lists in order from the first element(s)
+to the last, and the value returned by string-for-each is
+unspecified. If more than one string is given and not all strings have
+the same length, string-for-each terminates when the shortest string
+runs out. It is an error for proc to mutate any of the strings.
+
+## `(string-length string)`
+
+Returns the number of characters in the given string.
+
+## `(string-map proc string1 ...)`
+
+It is an error if proc does not accept as many arguments as there are
+strings and return a single character.
+
+The string-map procedure applies proc element-wise to the elements of
+the strings and returns a string of the results, in order. If more
+than one string is given and not all strings have the same length,
+string-map terminates when the shortest string runs out. The dynamic
+order in which proc is applied to the elements of the strings is
+unspecified. If multiple returns occur from string-map, the values
+returned by earlier returns are not mutated.
+
+## `(string-ref string k)`
+
+It is an error if k is not a valid index of string.
+
+The string-ref procedure returns character k of string using
+zero-origin indexing. There is no requirement for this procedure to
+execute in constant time.
+
+## `(string-set! string k char)`
+
+It is an error if k is not a valid index of string.
+
+The string-set! procedure stores char in element k of string. There is
+no requirement for this procedure to execute in constant time.
+
+## `string<=?`
+
+TODO
+
+## `string=?`
+
+TODO
+
+## `string>?`
+
+TODO
+
+## `(string? obj)`
+
+Return `#t` if `OBJ` is string. Otherwise `#f`.
+
+## `(substring string start end)`
+
+The substring procedure returns a newly allocated string formed from
+the characters of string beginning with index start and ending with
+index end. This is equivalent to calling string-copy with the same
+arguments, but is provided for backward compatibility and stylistic
+flexibility.
+
+## `(symbol->string symbol)`
+
+Returns the name of symbol as a string, but without adding escapes. It
+is an error to apply mutation procedures like string-set! to strings
+returned by this procedure.
+
+## `(symbol=? symbol1 symbol2 ...)`
+
+Returns #t if all the arguments are symbols and all have the same
+names in the sense of string=?.
+
+## `(symbol? obj)`
+
+Returns #t if obj is a symbol, otherwise returns #f.
+
+## `syntax-error`
+
+TODO
+
+## `syntax-rules`
+
+TODO
+
+## `textual-port?`
+
+TODO
+
+## `(truncate x)`
+
+TODO
+
+## `truncate-quotient`
+
+TODO
+
+## `truncate-remainder`
+
+TODO
+
+## `truncate/`
+
+TODO
+
+## `(u8-ready? [port])`
+
+Returns #t if a byte is ready on the binary input port and returns #f
+otherwise. If u8-ready? returns #t then the next read-u8 operation on
+the given port is guaranteed not to hang. If the port is at end of
+file then u8-ready? returns #t.
+
+## `(unless ...)` syntax
+
+The test is evaluated, and if it evaluates to #f, the expressions are
+evaluated in order. The result of the unless expression is
+unspecified.
+
+## `unquote`
+
+TODO
+
+## `unquote-splicing`
+
+TODO
+
+## `(utf8->string bytevector [start [end]])`
+
+It is an error for bytevector to contain invalid UTF-8 byte sequences.
+
+The utf8->string procedure decodes the bytes of a bytevector between
+start and end and returns the corresponding string.
+
+## `(values obj ...)`
+
+Delivers all of its arguments to its continuation.
+
+## `(vector obj ...)`
+
+Returns a newly allocated vector whose elements contain the given arguments. It is analogous to list.
+
+## `(vector->list vector [start [end]])`
+
+The vector->list procedure returns a newly allocated list of the
+objects contained in the elements of vector between start and end. The
+list->vector procedure returns a newly created vector initialized to
+the elements of the list list.
+
+## `(vector->string vector [start [end]])`
+
+It is an error if any element of vector between start and end is not a
+character.
+
+The vector->string procedure returns a newly allocated string of the
+objects contained in the elements of vector between start and end. The
+string->vector procedure returns a newly created vector initialized to
+the elements of the string string between start and end.
+
+## `(vector-append vector ...)`
+
+Returns a newly allocated vector whose elements are the concatenation
+of the elements of the given vectors.
+
+## `(vector-copy vector [start [end]])`
+
+Returns a newly allocated copy of the elements of the given vector
+between start and end. The elements of the new vector are the same (in
+the sense of eqv?) as the elements of the old.
+
+## `(vector-copy! to at from [start [end]])`
+
+It is an error if at is less than zero or greater than the length of
+to. It is also an error if (- (vector-length to) at) is less than (-
+end start).
+
+Copies the elements of vector from between start and end to vector to,
+starting at at. The order in which elements are copied is unspecified,
+except that if the source and destination overlap, copying takes place
+as if the source is first copied into a temporary vector and then into
+the destination. This can be achieved without allocating storage by
+making sure to copy in the correct direction in such circumstances.
+
+## `(vector-fill! vector fill [start [end]])`
+
+The vector-fill! procedure stores fill in the elements of vector
+between start and end.
+
+## `(vector-for-each proc vector1 ...)`
+
+It is an error if proc does not accept as many arguments as there are vectors.
+
+The arguments to vector-for-each are like the arguments to vector-map,
+but vector-for-each calls proc for its side effects rather than for
+its values. Unlike vector-map, vector-for-each is guaranteed to call
+proc on the elements of the vectors in order from the first element(s)
+to the last, and the value returned by vector-for-each is
+unspecified. If more than one vector is given and not all vectors have
+the same length, vector-for-each terminates when the shortest vector
+runs out. It is an error for proc to mutate any of the vectors.
+
+## `(vector-length vector)`
+
+Returns the number of elements in vector as an exact integer.
+
+## `(vector-map proc vector1 ...)`
+
+It is an error if proc does not accept as many arguments as there are
+vectors and return a single value.
+
+The vector-map procedure applies proc element-wise to the elements of
+the vectors and returns a vector of the results, in order. If more
+than one vector is given and not all vectors have the same length,
+vector-map terminates when the shortest vector runs out. The dynamic
+order in which proc is applied to the elements of the vectors is
+unspecified. If multiple returns occur from vector-map, the values
+returned by earlier returns are not mutated.
+
+## `(vector-ref vector k)`
+
+It is an error if k is not a valid index of vector.
+
+The vector-ref procedure returns the contents of element k of vector.
+
+## `(vector-set! vector k obj)`
+
+It is an error if k is not a valid index of vector.
+
+The vector-set! procedure stores obj in element k of vector.
+
+## `vector?`
+
+Returns #t if obj is a bytevector. Otherwise, #f is returned.
+
+## `(when ...)` syntax
+
+The test is evaluated, and if it evaluates to a true value, the
+expressions are evaluated in order. The result of the when expression
+is unspecified.
+
+## `with-exception-handler`
+
+TODO
+
+## `(write-bytevector bytevector [port [start [end]]])`
+
+Writes the bytes of bytevector from start to end in left-to-right
+order to the binary output port.
+
+## `(write-char char [port])`
+
+Writes the character char (not an external representation of the
+character) to the given textual output port and returns an unspecified
+value.
+
+## `(write-string string [port [start [end]]])`
+
+Writes the characters of string from start to end in left-to-right
+order to the textual output port.
+
+## `(write-u8 byte [port])`
+
+Writes the byte to the given binary output port and returns an
+unspecified value.
+
+## `(zero? z)`
+
+Return `#t` if z is zero. Otherwise `#f`.
diff --git a/makefile b/makefile
index 5024e97..5773512 100644
--- a/makefile
+++ b/makefile
@@ -19,3 +19,8 @@ test: check ## Run checks
html: ## Generate html from markdown documentation
pandoc --metadata title="Scheme Live!" README.md --css styles.css --mathml --standalone --to=html5 --output index.html
+ pandoc --metadata title="Scheme Live!" live/unstable/index.md --css ../../styles.css --mathml --standalone --to=html5 --output live/unstable/index.html
+
+check-with-podman:
+ env | grep "^IMPLEMENTATION=" # requires an env variable called IMPLEMENTATION
+ podman run --volume $(PWD):/live --interactive --rm ghcr.io/scheme-live/schemers:stable bash -c 'cp /live/local/shell-subcommand.sh . && cd /live && SCHEME_LIVE_PREFIX=/ PATH=/opt/live/$(IMPLEMENTATION)/bin:/live/local/bin:/usr/bin/:/bin USER=$(USER) scheme-live $(IMPLEMENTATION) check'
diff --git a/tests/check-0002-json-unstable.scm b/tests/check-0002-json-unstable.scm
index c84b0b9..7d6041f 100755
--- a/tests/check-0002-json-unstable.scm
+++ b/tests/check-0002-json-unstable.scm
@@ -1,6 +1,6 @@
#!/usr/bin/env -S scheme-live current run
(import (scheme write))
-(import (live json base))
+(import (live unstable))
(import (live json unstable))