#!perl -p
s;.;$a-1&7||"*"if$a+=$&.1;ge;s;6.*;