RosettaCodeData/Task/Babbage-problem/Objeck/babbage-problem.objeck

class Babbage  {
  function : Main(args : String[]) ~ Nil {
    cur := 0;
    do {
      cur++;
    }
    while(cur * cur % 1000000 <> 269696);

        cur_sqr := cur * cur;
    "The square of {$cur} is {$cur_sqr}!"->PrintLine();
  }
}