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

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

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

sum $1:i