(************************************************************
   queue_test.ml	Created      : Wed Nov 12 17:06:34 2003
  			Last modified: Wed Nov 12 17:08:15 2003
  Compile: ocamlc queue_test.ml -o queue_test #
  FTP Directory: sources/ocaml #
************************************************************)

let _ =
  let q = Queue.create () in
  Queue.add "tak" q;
  Queue.add "aki" q;
  Queue.add "mamewo" q;
  Queue.iter print_endline q