app
  (fn i => print (Int.toString i ^ "\n"))
  collect_list