["foo"; "bar"]
|> List.map String.uppercase
|> List.iter
   (Printf.printf "- %s\n")