rudus/sandbox.ld

let test = 3

let quux = loop ([1, 2]) with {
	([]) -> false
	([x]) -> eq? (x, test)
	([x, ...xs]) -> if eq? (x, test)
		then :yes
		else recur (xs)
}


let foo = :bar

fn not {
    (false) -> true
    (nil) -> true
    (_) -> false
}

let frob = loop ([1, 2, 3]) with {
	([]) -> false
	([y]) -> eq? (y, test)
	([y, ...ys]) -> if not (eq? (y, test))
		then recur (ys)
		else true
}

[quux, frob]