#!usr/bin/perl
use warnings;
use strict;
printf "%4d\n", 1;
printf "%4d\n", 12;
printf "%4d\n", 123;
printf "%4d\n", 1234;
printf "%4d\n", 12345;
printf "%4d\n\n", 123456789;
printf "%4d\n", -1;
printf "%4d\n", -12;
printf "%4d\n", -123;
printf "%4d\n", -1234;
printf "%4d\n", -12345;
printf "%4d\n", -123456789;