That should be "q s [] = [s]", otherwise you get 92 copies of the empty list.