m@main=getLine>>=putStrLn.h>>m h s=[t|t<-f s,let n=mod(length t)2,1>mod(sum[sum[a|x<-w,x