Welcome to SWI-Prolog (Version 2.7.16)
Copyright (c) 1993-1996 University of Amsterdam.  All rights reserved.

For help, use ?- help(Topic). or ?- apropos(Word).

1 ?- consult('sp_recognizer.pro').
sp_recognizer.pro compiled, 0.01 sec, 6,504 bytes.

Yes
2 ?- sp([uno],[]).

Yes
3 ?- sp([veinte,y,uno],[]).

Yes
4 ?- sp([cien,noveta,y,tres],[]).

No
5 ?- sp([cien,noventa,y,tres],[]).

Yes
6 ?- sp([cien],[]).

Yes
7 ?- sp([tres,mil],[]).

Yes
8 ?- sp([tres,million],[]).

No
9 ?- sp([tres,millon],[]).