main=getLine>>=putStr.f.length f x|x<25="Pen Pineapple Apple Pen"|x>30="Pineapple Pen"|0<1="Apple Pen"