let foreach l f = List.iter f l