Solution in Haskell Please

remq (Queue1 xs) = if null xs then error "empty queue" else split xs --split [1,2,3,4]=(4,[1,2,3]) split :: [a]>(a, Queue a) split [x]=(x, Queue1 []) split (x:xs)=let(y,ys)= split x s in --insert code