$%=<>; if($%){ print'0.'; print+(7,1,4,2,8,5)[$_%6]for 1..$% }else{ print 0 }