oo::class create simpleQ {
        variable q
        constructor {  } {
                set q {}
        }
        method pop { } {
                set value [lindex $q end] 
                set q [lreplace $q end-1 end]
                return $value
        }
        method qpop { } {
                set value [lindex $q 0] 
                set q [lreplace $q 0 0]
                return $value
        }
        method push { value } {
                lappend q $value
        }
}

set qObject [simpleQ new]
$qObject push "qText1"
$qObject push "qText2"
$qObject push "qText3"
$qObject push "qText4"
$qObject push "qText5"
puts "pop... [$qObject pop]"
puts "qpop... [$qObject qpop]"