$number = 1;
format =
@0#   
$number
.
write;
$number = 20;write;