diff --git a/functional-tests/math-utils.scm b/functional-tests/math-utils.scm
new file mode 100644
index 0000000..130e54a
--- /dev/null
+++ b/functional-tests/math-utils.scm
@@ -0,0 +1,10 @@
+(library
+  (math-utils)
+
+  (export div-up)
+
+  (import (chezscheme))
+
+  (define (div-up n d)
+    (/ (+ n (- d 1)) d))
+  )