Brandom

use Eval;

use Interp;

# helper functions

# Builtins get their arguments directly as a Lisp list, have names

# beginning with 'B', and are defined here (except for, well, exceptions)

sub Brandom {

        my ($arglist) = @_;

        my ($limit) = checkargs($arglist, ':n');

        $limit = 1 if is_nil($limit);

        return rand($limit);

}

sub Bsqrt {

        my ($arglist) = @_;

        my ($arg) = checkargs($arglist, 'n');

      "split STRING into parts SEPARATED by SEP and return the list"],

     ["sqrt", \&Bsqrt, 0, "return the square root of numeric ARG"],

     ["isqrt", \&Bsqrt, 0, "return the integer square root of numeric ARG"],

     ["random", \&Brandom, 0,

      "return a random number a with 0 <= a < LIMIT (or 1)"]

    );

for my $b (@builtins) {