% File: snn_recognizer.pro
%Description: a DCG for the names of numbers in snnanish

snn --> [cero].
snn --> snn5.

snn5 --> snn4, [millon], snn4.
snn5 --> snn4, [millon].
snn5 --> snn3, [millon], snn4.
snn5 --> snn4.

snn4 --> snn3, [mil], snn3.
snn4 --> snn3, [mil].
snn4 --> snn3.

snn3 --> snn1, [cien], snn2.
snn3 --> snn1, [cien].
snn3 --> [cien], snn2.
snn3 --> [cien].
snn3 --> snn2.

snn2 --> sty.
snn2 --> steen.
snn2 --> snn1.

sty --> stybase.
sty --> stybase, [y], snn1.

stybase --> [veinte].
stybase --> [treinta].
stybase --> [cuarenta].
stybase --> [cincuenta].
stybase --> [sesenta].
stybase --> [setenta].
stybase --> [ochenta].
stybase --> [noventa].

steen --> [diez].
steen --> [once].
steen --> [doce].
steen --> [trece].
steen --> [catorce].
steen --> [quince].
steen --> [dieciséis].
steen --> [diecisiete].
steen --> [dieciocho].
steen --> [diecinueve].

snn1 --> [uno].
snn1 --> [dos].
snn1 --> [tres].
snn1 --> [cuatro].
snn1 --> [cinco].
snn1 --> [seis].
snn1 --> [seite].
snn1 --> [ocho].
snn1 --> [nueve].