function SeqGen: sequence of integer; begin var q := new Queue; var d := q.Dequeue; yield 1; end; begin end.