Mais um blog inútil.

 f                   -- Line number 1
 als                  -- This line .. Well ...
 ofals
 ofalsof
 alsofalso               -- First cycle (Begin)
 falsofalsof              -- Second cycle (End)
 alsofalsofals
 ofalsofalsofals
 ofalsofalsofalsof
 alsofalsofalsofalso            -- Second cycle (End)
 falsofalsofalsofalsof           -- First cycle (End)
 alsofalsofalsofalsofals
 ofalsofalsofalsofalsofals
ofalsofalsofalsofalsofalsofa
 lsofa
 lsofa
 lsofa
 lsofa
 lsofa
 lsofa
 lsofa                    -- 7 lsofa <=> Returns 0

             f
            als
           ofals
          ofalsof
         alsofalso
        falsofalsof
       alsofalsofals
      ofalsofalsofals
     ofalsofalsofalsof
    alsofalsofalsofalso
   falsofalsofalsofalsof
  alsofalsofalsofalsofals
 ofalsofalsofalsofalsofals
ofalsofalsofalsofalsofalsofa
          lsofa
          lsofa
          lsofa
          lsofa
          lsofa
          lsofa
          lsofa

C:\>type arv.bat
@echo off
set arv=*****&cmd.exe /v:on /C "for /L %%n in (1,1,5) do @echo !arv:~-%%n!"
C:\>arv
*
**
***
****
*****
C:\>

C:\>set arv=*****&cmd.exe /v:on /C "for /L %n in (1,1,5) do @echo !arv:~-%n!"
*
**
***
****
*****
C:\>

;eval("s=\"*\";for x in [1..5] player:tell(s); s=s+\"*\";endfor;")

   #include "colors.inc"
 camera {
    location <0, 0.5, -20>
    look_at 0
    angle 45
  }
   
  light_source { <500,500,-1000> White }
 
  plane {
    y,0
    pigment { checker Brown White }
  }
  
 #declare blol1 = 1;
 #while(blol1 <= 5)
 
   #declare blol2 = 1;
   #while(blol2 <= blol1)
     text {
       ttf "timrom.ttf" "*" 1, 0
       pigment { Green }
       translate (-3+blol2)*x+(5-blol1)*y
     }
     #declare blol2 = blol2 + 1;
  #end
  
  #declare blol1 = blol1 + 1;
 #end

with Ada.Text_IO; use Ada.Text_IO;
procedure Arvorezinha is
	X : String := "*";
begin 
	for I in Integer range 1 .. 5 loop
		for J in Integer range 1 .. I loop
			Put(X);
		end loop;
		Put_Line("");
	end loop;
end Arvorezinha;

for i in 1..5
	i.times do
		print "*"
	end
	print "\n"
end

for i in xrange(1,6): print i * '*'

>>> for i in xrange(1,6): print i * '*'
...
*
**
***
****
*****

david@tokyo ~ $ perl -l arvorezinha.pl
*
**
***
****
*****
david@tokyo ~ $ cat arvorezinha.pl
for (1..5){print "*"x$_;}
david@tokyo ~ $ wc -c arvorezinha.pl

for i in xrange(1, 6): print ['*' for j in xrange(i)]

++++++++++>++++++[>+++++++<-]>>++++++[>+>+<<-]>>[<<+>>-]+
[>+>+<<-]>>[<<+>>-]<[<<->>-]<[>+>+<<-]>>[<<+>>-]<<<[>>[<<
<<.>>>>-]<<<<<<.>>>>>><+[>+>+<<-]>>[<<+>>-]<[-]<<[-]<[>+>
>+<<<-]>>>[<<<+>>>-]<[>+>+<<-]>>[<<<->>>-]<[>+<-]>[<+<+>>
-]<<<]