% File: enn_recognizer.pro
%Description: a DCG for the names of numbers in English up to 1 million.

enn --> [zero].
enn --> enn5.

enn5 --> enn4, [million], enn4.
enn5 --> enn4, [million].
enn5 --> enn3, [million], enn4.
enn5 --> enn4.

enn4 --> enn3, [thousand], enn3.
enn4 --> enn3, [thousand].
enn4 --> enn2, [thousand], enn3.
enn4 --> enn3.

enn3 --> enn1, [hundred], enn2.
enn3 --> enn1, [hundred].
enn3 --> enn2.

enn2 --> ety.
enn2 --> eteen.
enn2 --> enn1.

ety --> etybase.
ety --> etybase, enn1.

etybase --> [twenty].
etybase --> [thirty].
etybase --> [fourty].
etybase --> [fifty].
etybase --> [sixty].
etybase --> [seventy].
etybase --> [eighty].
etybase --> [ninety].

eteen --> [ten].
eteen --> [eleven].
eteen --> [tweleve].
eteen --> [thirteen].
eteen --> [fourteen].
eteen --> [fifteen].
eteen --> [sixteen].
eteen --> [seventeen].
eteen --> [eighteen].
eteen --> [nineteen].

enn1 --> [one].
enn1 --> [two].
enn1 --> [three].
enn1 --> [four].
enn1 --> [five].
enn1 --> [six].
enn1 --> [seven].
enn1 --> [eight].
enn1 --> [nine].