jacinda-0.2.0.0: lib/example.jac

fn sum(x) :=
  (+)|0 x;

fn map(f, x) :=
  f"x;

fn count (x) :=
  sum (map ([:1) x);

sum $1:i