read WILF: print(`The set of forbidden pattern is`): print({[1,2,3],[1,3,2]}); print(`This is the (RIGOROUS) scheme`): gu:=Scheme({[1,2,3],[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 `): factor(SchemeRecurrence(gu,n,N,20)); quit: