a debug for Beq (which was quite helpful despite the error in Lisp)

        my $type1 = ref($arg1);

        my $type2 = ref($arg2);

        return $Nil unless $type1 eq $type2;

        if ($type1 eq "") {

                return tornil($arg1 eq $arg2);

        my $result;

        if ($type1 ne $type2) {

                $result = $Nil;

        } elsif ($type1 eq "") {

                $result = tornil($arg1 eq $arg2);

        } else {

                return tornil($arg1 == $arg2);

                $result = tornil($arg1 == $arg2);

        }

        # debug("eq %s %s / %s %s -> %s",

        #       $arg1, $arg2, "$arg1", "$arg2", $result);

        return $result;

}

sub Bif {