import List m@main=getLine>>=putStrLn.f>>m l=length f x=show(l[n|n<-h x,n