read WILF:
 
print(`The set of forbidden pattern is`):
print({[1,3,2]});
 
print(`This is the (RIGOROUS) scheme`):
 
gu:=Scheme({[1,3,2]},2):
 
print([gu[1],gu[2],op(gu[3]),op(gu[4]),op(gu[5])]):
 
print(`This is the sequence`):
 
SchemeSeries(gu,20);
 
print(`This is the (Semi-Rigorous) Recurrence `):
 
SchemeRecurrence(gu,n,N,20);
 
quit: