>>255
OOPLのループ
a := 1 to: 100.
a do:
[ :each |
　Transcript
　　show: each asString;
　　cr.
].

C#やCやjavaのループ
for( int i = 0; 100 > i ; ++i )
{
　System::Console->WriteLine(
"{0}", i );
}