let positive_only = sublist (function x -> x > 0)