;; -*- Mode: Irken -*- (include "lib/core.scm") (include "lib/pair.scm") (define length acc {next=(maybe:yes x)} -> (length (+ acc 1) x) acc {next=(maybe:no)} -> acc (length 0 {next=(maybe:no)})