1 files changed, 4 insertions, 1 deletions
diff --git a/mew.scm b/mew.scm
index 1615d7b..1af0701 100644
--- a/mew.scm
+++ b/mew.scm
@@ -1,6 +1,6 @@
 (module mew
   (export
-     accumulate at
+     act accumulate at
      comp
      dec def div
      empty? eof esc
@@ -654,4 +654,7 @@
   (define (juxt . fs)
     (lambda args
       (unlist (map (lambda (f) (apply f args)) fs))))
+
+  (define (act x . fs)
+    ((apply per fs) x))
 )