#!/usr/local/bin/perl
printf "\e&f0k%dD%s", length ($ARGV[0]), $ARGV[0] unless $#ARGV < 0;