# Converted with mperl


$x = int(rand("9"));
while(isPieceAt($x)) {
  $x = int(rand("9"));
  $x = "hello";

};
@x = ("a" , ("b" , "c"));
$x["5"]["6"] = "hello";
doMove(($x , $y));