data ImplicitQueue : Type -> Type
Shallow : Digit a -> ImplicitQueue a
Deep : Digit a -> Lazy (ImplicitQueue (a, a)) -> Digit a -> ImplicitQueue a
Queue ImplicitQueue