#!./ocaml_q_test


(* parameteres you might want to edit *)

let size = (Scanf.fscanf stdin "%d" (function x -> x) );;

module Size = ( struct  let size = size end : Prioqueue.SIZE );;

module CQueue = ( CycleQueue.CycleQueueFunctor ( Size ) : Prioqueue.CYCLE_QUEUE);;

module ParticularQueue = QuickQueue.QuickQueueFunctor ( CQueue );;

(* end of paramteres *)

module LetsTest = ParticularTests.Tests(ParticularQueue);;

LetsTest.test();;