MShrimp4

#include <stdio.h>
#include <stdbool.h>

bool swap(int * a, int * b){
	int temp;
		temp = *a;
		*a = *b;
		*b = temp;
}

MShrimp4

(defn _autolet [exp]
  (cond
    (empty? exp) exp
    (= (ffirst exp) :=) (let [app (into (vector) (rest (first exp)))
			      rexp (_autolet (rest exp))]
			  `((let ~app ~@rexp)))
    :else (cons (first exp) (_autolet (rest exp)))))
(defmacro autolet [& exp]
  `(do ~@(_autolet exp)))