diff --git a/src/lisp/lib/std.c b/src/lisp/lib/std.c
index 485bf49..028dd3d 100644
--- a/src/lisp/lib/std.c
+++ b/src/lisp/lib/std.c
@@ -39,6 +39,17 @@
 	return nil;
 }
 
+value_t l_apply(value_t func, value_t args)
+{
+	if (!closurep(func))
+		return nil;
+
+	if (!listp(args))
+		return nil;
+
+	return call_list_closure((struct closure *)(func ^ CLOSURE_TAG), args);
+}
+
 void add_function(struct environment *env, char *name, void *func, int nargs, enum namespace ns)
 {
 	struct function *last, *new = malloc(sizeof(struct function));
@@ -65,4 +76,6 @@
 	add_function(env, "cons", cons, 2, NS_FUNCTION);
 
 	add_function(env, "print", l_printval, 1, NS_FUNCTION);
+
+	add_function(env, "apply", l_apply, 2, NS_FUNCTION);
 }
diff --git a/src/lisp/lib/std.h b/src/lisp/lib/std.h
index 5162bab..9070de8 100644
--- a/src/lisp/lib/std.h
+++ b/src/lisp/lib/std.h
@@ -4,6 +4,7 @@
 #include "../lisp.h"
 
 value_t l_plus(value_t a, value_t b);
+value_t l_printval(value_t val);
 
 void add_function(struct environment *env, char *name, void *func, int nargs, enum namespace ns);
 void load_std(struct environment *env);