<>; $a=$x=1; $a*=$_>0,$x=$x*($_%9)%9for glob<>; print$a?$x?$x:9:0