$0=substr("-_---",1+$1%5,$1%12)