insspace = ("" : " ");

zero = "0";

digits = ("1" : "jeden")
	  | ("2" : "dwa")
	  | ("3" : "trzy")
	  | ("4" : "cztery")
	  | ("5" : "pięć")
	  | ("6" : "sześć")
	  | ("7" : "siedem")
	  | ("8" : "osiem")
	  | ("9" : "dziewięć")
;

teens = ("10" : "dziesięć")
	   | ("11" : "jedenaście")
	   | ("12" : "dwanaście")
	   | ("13" : "trzynaście")
	   | ("14" : "czternaście")
	   | ("15" : "piętnaście")
	   | ("16" : "szesnaście")
	   | ("17" : "siedemnaście")
	   | ("18" : "osiemnaście")
	   | ("19" : "dziewiętnaście")
;

decades =  ("2" : "dwadzieścia")
	  | ("3" : "trzydzieści")
	  | ("4" : "czterdzieści")
	  | ("5" : "pięćdziesiąt")
	  | ("6" : "sześćdziesiąt")
	  | ("7" : "siedemdziesiąt")
	  | ("8" : "osiemdziesiąt")
	  | ("9" : "dziewięćdziesiąt")
;

decades_0 =  ("20" : "dwadzieścia")
	  | ("30" : "trzydzieści")
	  | ("40" : "czterdzieści")
	  | ("50" : "pięćdziesiąt")
	  | ("60" : "sześćdziesiąt")
	  | ("70" : "siedemdziesiąt")
	  | ("80" : "osiemdziesiąt")
	  | ("90" : "dziewięćdziesiąt")
;

hundreds =  ("1" : "sto")
		| ("2" : "dwieście")
		| ("3" : "trzysta")
		| ("4" : "czterysta")
		| ("5" : "pięćset")
		| ("6" : "sześćset")
		| ("7" : "siedemset")
		| ("8" : "osiemset")
		| ("9" : "dziewięćset")
;

thousands = ("1" : "tysiąc")
		| ("2":"dwa tysiące")
		| ("3":"trzy tysiące")
		| ("4":"cztery tysiące")
		| ("5":"pięć tysięcy")
		| ("6":"sześć tysięcy")
		| ("7":"siedem tysięcy")
		| ("8":"osiem tysięcy")
		| ("9":"dziewięć tysięcy");

thousands_1 = ("1" : "jeden tysięcy")
		| ("2":"dwa tysiące")
		| ("3":"trzy tysiące")
		| ("4":"cztery tysiące")
		| ("5":"pięć tysięcy")
		| ("6":"sześć tysięcy")
		| ("7":"siedem tysięcy")
		| ("8":"osiem tysięcy")
		| ("9":"dziewięć tysięcy");

thousands_19 = ("10":"dziesięć tysięcy")
		| ("11":"jedenaście tysięcy")
		| ("12":"dwanaście tysięcy")
		| ("13":"trzynaście tysięcy")
		| ("14":"czternaście tysięcy")
		| ("15":"piętnaście tysięcy")
		| ("16":"szesnaście tysięcy")
		| ("17":"siedemnaście tysięcy")
		| ("18":"osiemnaście tysięcy")
		| ("19":"dziewiętnaście tysięcy");


thousands_decades =  ("2" : "dwadzieścia tysięcy")
	  | ("3" : "trzydzieści tysięcy")
	  | ("4" : "czterdzieści tysięcy")
	  | ("5" : "pięćdziesiąt tysięcy")
	  | ("6" : "sześćdziesiąt tysięcy")
	  | ("7" : "siedemdziesiąt tysięcy")
	  | ("8" : "osiemdziesiąt tysięcy")
	  | ("9" : "dziewięćdziesiąt tysięcy")
;

millions = ("1" : "milion")
		| ("2":"dwa miliony")
		| ("3":"trzy miliony")
		| ("4":"cztery miliony")
		| ("5":"pięć milionów")
		| ("6":"sześć milionów")
		| ("7":"siedem milionów")
		| ("8":"osiem milionów")
		| ("9":"dziewięć milionów");

millions_1 = ("1" : "jeden milionów")
		| ("2":"dwa miliony")
		| ("3":"trzy miliony")
		| ("4":"cztery miliony")
		| ("5":"pięć milionów")
		| ("6":"sześć milionów")
		| ("7":"siedem milionów")
		| ("8":"osiem milionów")
		| ("9":"dziewięć milionów");

millions_19 = ("10":"dziesięć milionów")
		| ("11":"jedenaście milionów")
		| ("12":"dwanaście milionów")
		| ("13":"trzynaście milionów")
		| ("14":"czternaście milionów")
		| ("15":"piętnaście milionów")
		| ("16":"szesnaście milionów")
		| ("17":"siedemnaście milionów")
		| ("18":"osiemnaście milionów")
		| ("19":"dziewiętnaście milionów");


millions_decades =  ("2" : "dwadzieścia milionów")
	  | ("3" : "trzydzieści milionów")
	  | ("4" : "czterdzieści milionów")
	  | ("5" : "pięćdziesiąt milionów")
	  | ("6" : "sześćdziesiąt milionów")
	  | ("7" : "siedemdziesiąt milionów")
	  | ("8" : "osiemdziesiąt milionów")
	  | ("9" : "dziewięćdziesiąt milionów")
;

if_minus = Optimize["-":"minus "];
if_zero = Optimize[zero:"zero"];

#first phase
number_to_10 = Optimize[digits];
numbers_to_99 = Optimize[ teens | decades_0 | decades insspace digits | digits ];
numbers_to_999 = Optimize[ hundreds (((zero{2}):"") | insspace teens | insspace decades insspace digits | insspace decades_0 | (zero:" ") digits)];
numbers_to_9999 =Optimize[ thousands((zero{3}:"") | insspace numbers_to_999 | (zero:" ") numbers_to_99 | (zero{2}:" ") digits )];
numbers_to_19999 = Optimize[ thousands_19((zero{3}:"") | insspace numbers_to_999 | insspace numbers_to_99 | (zero{2}:" ") digits)];
numbers_to_9999_1 =Optimize[ thousands_1((zero{3}:"") | insspace numbers_to_999 | (zero:" ") numbers_to_99 | (zero{2}:" ") digits )];
numbers_to_90999 = Optimize[ thousands_decades (zero:"") ((zero{3}:"") |insspace numbers_to_999 | insspace hundreds ((zero{2}:"") | insspace teens | insspace decades insspace digits | insspace decades_0 | (zero:" ") digits)  | (zero{2}:" ") digits)];
numbers_to_99999 = Optimize[ decades insspace numbers_to_9999_1 ];

first_phase = Optimize [number_to_10 | numbers_to_99 | numbers_to_999 | numbers_to_9999 | numbers_to_19999 | numbers_to_9999_1 | numbers_to_90999 | numbers_to_99999];

#second phase
numbers_to_999999 = Optimize[ hundreds ( (zero{5}:" tysięcy") | insspace numbers_to_90999 | insspace numbers_to_99999 | (zero:" ") numbers_to_9999_1 )];
numbers_to_9999999 = Optimize[ millions( (zero{6}:"") | insspace numbers_to_999999  | (zero:" ") numbers_to_99999  | (zero:" ") numbers_to_90999 | (zero:" ") numbers_to_19999  | (zero{2}:" ") numbers_to_9999_1 | (zero{3}:" ") numbers_to_999 | (zero{4}:" ") numbers_to_99 | (zero{5}:" ") digits  )];
numbers_to_19999999 = Optimize[ millions_19 ( (zero{6}:"") | insspace numbers_to_999999  | (zero:" ") numbers_to_99999  | (zero:" ") numbers_to_90999 | (zero:" ") numbers_to_19999  | (zero{2}:" ") numbers_to_9999_1 | (zero{3}:" ") numbers_to_999 | (zero{3}:" ") numbers_to_99 | (zero{5}:" ") digits  )];
numbers_to_9999999_1 = Optimize[ millions_1 ( (zero{6}:"") | insspace numbers_to_999999  | (zero:" ") numbers_to_99999  | (zero:" ") numbers_to_90999 | (zero:" ") numbers_to_19999  | (zero{2}:" ") numbers_to_9999_1 | (zero{3}:" ") numbers_to_999 | (zero{4}:" ") numbers_to_99 | (zero{5}:" ") digits  )];
numbers_to_90999999 = Optimize[ millions_decades (zero:"")( (zero{6}:"") | insspace numbers_to_999999  | (zero:" ") numbers_to_99999  | (zero:" ") numbers_to_90999 | (zero:" ") numbers_to_19999  | (zero{2}:" ") numbers_to_9999_1 | (zero{3}:" ") numbers_to_999 | (zero{4}:" ") numbers_to_99 | (zero{5}:" ") digits  )];
numbers_to_99999999 = Optimize[ decades insspace numbers_to_9999999_1 ];
numbers_to_999999999 = Optimize[ hundreds ( (zero{8}:" milionów") | insspace numbers_to_90999999 | insspace numbers_to_99999999 | (zero:" ") numbers_to_9999999_1 )];

second_phase = Optimize [numbers_to_999999 | numbers_to_9999999 | numbers_to_19999999 | numbers_to_9999999_1 | numbers_to_90999999 | numbers_to_99999999 | numbers_to_999999999];

WRITE = Optimize[ (if_zero) | (if_minus? ( first_phase | second_phase )?)];

export PROCESS =  Optimize[WRITE];