let
foreach l f =
List
.iter f l