# Error in btred
# https://github.com/ufal/perl-pmltq/issues/3
a-node $n := [  ];
  >> give lower($n.m/form)
  >> filter $1 ~ '^[a-z]'
  >> for $1 give $1,count()
  >> filter $2 >= 10
  >> give $1,$2
