##Write a number
##
##  Do not look at $ans = $c[9] I need to get past the present error
##  Also, I'lll work on a subrouine instead of reption of similar code 
##
DOCUMENT();      
loadMacros(   "PGstandard.pl",     # Standard macros for PG language
   "MathObjects.pl",
   "source.pl",        # allows code to be displayed on certain sites.
   "PGcourse.pl",      # Customization file for the course 
   "PGnumericevaluators.pl",   #
   "parserAutoStrings.pl",
);
AutoStrings();
TEXT(beginproblem());
$showPartialCorrectAnswers = 1;
$one=String("one");$two=String("two");$three=String("three"); $four=String("four");$five=String("five"); $six=String("six");$seven=String("seven");$eight=String("eight"); $nine=String("nine"); $ten=String("ten"); $hundred=String("hundred");$thousand=("thousand");
$tenThousand=String("ten-thousand");$hundredThousand=("hundred-thousand"); $million=String("million");
$tenMillion=String("ten-million");$hundredMillion=String("hundred-milion");$billion=String("billion");
$hyphen=String("-");$space=String(" ");$twenty=("twenty-");$thirty=String("thirty-");
$forty=String("forty-");$fifty=String("fifty-");$sixty=String("sixty-"); $seventy=String("seventy-");
$eighty=String("eighty-"); $ninety=String("ninety-");

$i0=random(2,9,1);
$i1=random(2,9,1);
$i2=random(2,9,1);
$i3=random(2,9,1);
$i4=random(2,9,1);
$i5=random(2,9,1);
$i6=random(2,9,1);
$i7=random(2,9,1);
$i8=random(2,9,1);
$i9=random(2,9,1);;
while ($i9 eq $i0)   {$i9=random(0,9,1); } 
while (($i8 eq $i0) or ($i8 eq $i9))   {$i8=random(0,9,1); } 
while (($i7 eq $i0) or ($i7 eq $i9) or ($i7 eq $i8))   {$i7=random(0,9,1);}
while (($i6 eq $i0) or ($i6 eq $i9) or ($i6 eq $i8) or ($i6 eq $i7)) {$i6=random(0,9,1);} 
while (($i5 eq $i0) or ($i5 eq $i9) or ($i5 eq $i8) or ($i5 eq $i7) or ($i5 eq $i6)) {$i5=random(0,9,1);} 
while (($i4 eq $i0) or ($i4 eq $i9) or ($i4 eq $i8) or ($i4 eq $i7) or ($i4 eq $i6) or ($i4 eq $i5)) 
{$i4=random(0,9,1);} 
while (($i3 eq $i0) or ($i3 eq $i9) or ($i3 eq $i8) or ($i3 eq $i7) or ($i3 eq $i6) or ($i3 eq $i5) or ($i3 eq $i4)) 
{$i3=random(0,9,1);} 
while (($i2 eq $i0) or ($i2 eq $i9) or ($i2 eq $i8) or ($i2 eq $i7) or ($i2 eq $i6) or ($i2 eq $i5) or ($i2 eq $i4) or 
($i2 eq $i3)) {$i2=random(0,9,1);} 
while (($i1 eq $i0) or ($i1 eq $i9) or ($i1 eq $i8) or ($i1 eq $i7) or ($i1 eq $i6) or ($i1 eq $i5) or ($i1 eq $i4) or 
($i1 eq $i3) or ($i1 eq $i2)) {$i1=random(0,9,1);} 
@a=($i0,$i1,$i2,$i3,$i4,$i5,$i6,$i7,$i8,$i9);

BEGIN_TEXT
$BR
 i9=$i9, i8=$i8, i7=$i7, i6=$i6,  i5=$i5, i4=$i4, i3=$i3, i2=$i2,  i1=$i1, i0=$i0,   
$BR
END_TEXT

@b=(0,0,0,0,0,0,0,0,0,0);
@c=("a","b","c","d","e","f","g","h","i","j");
#for ($i=0;$i<11;$i++) {$b[$i]=$a[$i]}

if ($a[9] eq 1){ $c[9]=$one;}
elsif ($a[9] eq 2){$c[9]=$two;}
elsif ($a[9] eq 3){$c[9]=$three;}
elsif ($a[9] eq 4){$c[9]=$four;}
elsif ($a[9] eq 5){$c[9]=$five;}
elsif ($a[9] eq 6){$c[9]=$six;}
elsif ($a[9] eq 7){$c[9]=$seven;}
elsif ($a[9] eq 8){$c[9]=$eight;}
elsif ($a[9] eq 9){$c[9]=$nine;}
elsif ($a[9] eq 0){$c[9]=$space;}
#}
if ($a[8] eq 1){ $c[8]=$one;}
elsif ($a[8] eq 2){$c[8]=$two;}
elsif ($a[8] eq 3){$c[8]=$three;}
elsif ($a[8] eq 4){$c[8]=$four;}
elsif ($a[8] eq 5){$c[8]=$five;}
elsif ($a[8] eq 6){$c[8]=$six;}
elsif ($a[8] eq 7){$c[8]=$seven;}
elsif ($a[8] eq 8){$c[8]=$eight;}
elsif ($a[8] eq 9){$c[8]=$nine;}
elsif ($a[8] eq 0){$c[8]=$space;}
#}
if ($a[7] eq 1){ $c[7]=$ten;}
elsif ($a[7] eq 2){$c[7]=$twenty;}
elsif ($a[7] eq 3){$c[7]=$thirty;}
elsif ($a[7] eq 4){$c[7]=$fourty;}
elsif ($a[7] eq 5){$c[7]=$fifty;}
elsif ($a[7] eq 6){$c[7]=$sixty;}
elsif ($a[7] eq 7){$c[7]=$seventy;}
elsif ($a[7] eq 8){$c[7]=$eighty;}
elsif ($a[7] eq 9){$c[7]=$ninety;} 
elsif ($a[7] eq 0){$c[7]=$space;}
#}
if ($a[6] eq 1){ $c[6]=$one;}
elsif ($a[6] eq 2){$c[6]=$two;}
elsif ($a[6] eq 3){$c[6]=$three;}
elsif ($a[6] eq 4){$c[6]=$four;}
elsif ($a[6] eq 5){$c[6]=$five;}
elsif ($a[6] eq 6){$c[6]=$six;}
elsif ($a[6] eq 7){$c[6]=$seven;}
elsif ($a[6] eq 8){$c[6]=$eight;}
elsif ($a[6] eq 0){$c[6]=$space;}
elsif ($a[6] eq 9){$c[6]=$nine;}
#}
if ($a[5] eq 1){ $c[5]=$one;}
elsif ($a[5] eq 2){$c[5]=$two;}
elsif ($a[5] eq 3){$c[5]=$three;}
elsif ($a[5] eq 4){$c[5]=$four;}
elsif ($a[5] eq 5){$c[5]=$five;}
elsif ($a[5] eq 6){$c[5]=$six;}
elsif ($a[5] eq 7){$c[5]=$seven;}
elsif ($a[5] eq 8){$c[5]=$eight;}
elsif ($a[5] eq 9){$c[5]=$nine;}
elsif ($a[5] eq 0){$c[5]=$space;}
#}
if ($a[4] eq 1){ $c[4]=$ten;}
elsif ($a[4] eq 2){$c[4]=$twenty;}
elsif ($a[4] eq 3){$c[4]=$thirty;}
elsif ($a[4] eq 4){$c[4]=$forty;}
elsif ($a[4] eq 5){$c[4]=$fifty;}
elsif ($a[4] eq 6){$c[4]=$sixty;}
elsif ($a[4] eq 7){$c[4]=$seventy;}
elsif ($a[4] eq 8){$c[4]=$eighty;}
elsif ($a[4] eq 9){$c[4]=$ninety;} 
elsif ($a[4] eq 0){$c[4]=$space;}
#}
if ($a[3] eq 1){ $c[3]=$one;}
elsif ($a[3] eq 2){$c[3]=$two;}
elsif ($a[3] eq 3){$c[3]=$three;}
elsif ($a[3] eq 4){$c[3]=$four;}
elsif ($a[3] eq 5){$c[3]=$five;}
elsif ($a[3] eq 6){$c[3]=$six;}
elsif ($a[3] eq 7){$c[3]=$seven;}
elsif ($a[3] eq 8){$c[3]=$eight;}
elsif ($a[3] eq 9){$c[3]=$nine;} 
elsif ($a[3] eq 0){$c[3]=$space;}
#}
if ($a[2] eq 1){ $c[4]=$one;}
elsif ($a[2] eq 2){$c[2]=$two;}
elsif ($a[2] eq 3){$c[2]=$three;}
elsif ($a[2] eq 4){$c[2]=$four;}
elsif ($a[2] eq 5){$c[2]=$five;}
elsif ($a[2] eq 6){$c[2]=$six;}
elsif ($a[2] eq 7){$c[2]=$seven;}
elsif ($a[2] eq 8){$c[2]=$eight;}
elsif ($a[2] eq 9){$c[2]=$nine;} 
elsif ($a[2] eq 0){$c[2]=$space;}
#}
if ($a[1] eq 1){ $c[1]=$ten;}
elsif ($a[1] eq 2){$c[1]=$twenty;}
elsif ($a[1] eq 3){$c[1]=$thirty;}
elsif ($a[1] eq 4){$c[1]=$forty;}
elsif ($a[1] eq 5){$c[1]=$fifty;}
elsif ($a[1] eq 6){$c[1]=$sixty;}
elsif ($a[1] eq 7){$c[1]=$seventy;}
elsif ($a[1] eq 8){$c[1]=$eighty;}
elsif ($a[1] eq 9){$c[1]=$ninety;} 
elsif ($a[1] eq 0){$c[1]=$space;}
#}
if ($a[0] eq 1){ $c[0]=$one;}
elsif ($a[0] eq 2){$c[0]=$two;}
elsif ($a[0] eq 3){$c[0]=$three;}
elsif ($a[0] eq 4){$c[0]=$four;}
elsif ($a[0] eq 5){$c[0]=$five;}
elsif ($a[0] eq 6){$c[0]=$six;}
elsif ($a[0] eq 7){$c[0]=$seven;}
elsif ($a[0] eq 8){$c[0]=$eight;}
elsif ($a[0] eq 9){$c[0]=$nine;} 
elsif ($a[0] eq 0){$c[0]=$space;}
#}
BEGIN_TEXT
$BR
 a9=$a[9], a8=$a[8], a7=$a[7], a6=$a[6],  a5=$a[5], a4=$a[4], a3=$a[3], a2=$a[2],  a1=$a[1], a0=$a[0],   
$BR
 c9=$c[9], c8=$c[8], c7=$c[7], c6=$c[6],  c5=$c[5], c4=$c[4], c3=$c[3], c2=$c[2],  c1=$c[1], c0=$c[0],   
$BR
END_TEXT


BEGIN_TEXT
Write the number $a[9], 0 $a[7] 0, 0 $a[4] $a[3],$a[2] $a[1] $a[0] in words: \{$ans3=ans_rule(80)\} 

END_TEXT
$ANS=$c[9];
ANS(str_cmp($c[9]));

ENDDOCUMENT();