1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/l3prompt	Sat Mar 08 22:36:44 2008 +0200
     1.3 @@ -0,0 +1,13 @@
     1.4 +#!/usr/bin/perl
     1.5 +
     1.6 +$string="abcdefghijklmnopqrstuvwxyz";
     1.7 +$insert="\e[1K\e[10D";
     1.8 +$max=5;
     1.9 +
    1.10 +while (length($string) > $max) {
    1.11 +    $res .= substr($string, 0, $max).$insert;
    1.12 +    $string = substr($string, $max);
    1.13 +}
    1.14 +$res .= $string.$insert;
    1.15 +print "$res\n";
    1.16 +