diff --git a/parse.scm b/parse.scm
index c65435d..55922ad 100644
--- a/parse.scm
+++ b/parse.scm
@@ -22,6 +22,11 @@
   (lambda (ingredient)
     (car ingredient)))
 
+(define ingredient-unit
+  (lambda (ingredient)
+    (if (= (length ingredient) 2)
+        ""
+        (car (cdr ingredient)))))
 
 ;;