main=do x<-readFile"test.hs";putStr[c|c<-['\0'..'\127'],all(c/=)x]