diff --git a/module/srfi/srfi-1.mes b/module/srfi/srfi-1.mes
index 494a197e..62d47018 100644
--- a/module/srfi/srfi-1.mes
+++ b/module/srfi/srfi-1.mes
@@ -131,4 +131,10 @@
               (loop (cdr lst))
                 (cons (car lst) (loop (cdr lst))))))))
 
+(define (drop lst n)
+  (list-tail lst n))
+
+(define (drop-right lst n)
+  (list-head lst (- (length lst) n)))
+
 (include-from-path "srfi/srfi-1.scm")