If you don't use a list,

hogen=(\xy->(x,y))<$>[-n..n]<*>[-n..n]

hogen=dox<-[-n..n]
            y<-[-n..n]
            return(x,y)