sdilts

#!/bin/sh

if [ -z "$1" ]
then
        OPEN_DIR=$(PWD)
else
        OPEN_DIR=$1
fi

cd $OPEN_DIR

sdilts

#include <assert.h>
#include <stddef.h>
#include <stdlib.h>
#include <stdint.h>
#include <inttypes.h>
#include <float.h>
#include <limits.h>
#include <string.h>
#include <math.h>
#include <ctype.h>

sdilts

(defndynamic my-nth [x lst]
  (if (not (= (length lst) 0))
    (if (= x 0)
      (car lst)
      (my-nth (- x 1) (cdr lst)))
    (macro-error "my-nth: x provided was too big")))

(defndynamic my-nthcdr [x lst]
  (if (not (= (length lst) 0))
    (if (= x 0)