Use Haskell to solve

remq ( Queue1 xs)= split x s --split [1,2,3,4]=(4,[1,2,3]) split :: [a]>(a,[a])-- use let (y,ys)= split x in ...y...ys