:Begin:
:Function: mpgrowth
:Pattern:  MPG0[totsteps_Integer, maxsize_Integer, init_List, 
					outflag_Integer, retain_Integer, rules_List]
:Arguments:  {totsteps, maxsize, init, outflag, retain, rules}
:ArgumentTypes:  {Integer, Integer, IntegerList, Integer, Integer, Manual}
:ReturnType:  Manual
:End:

:Evaluate:   MPGrowth[rules_List, init_List, totsteps_Integer, 
					retain_Integer:0, maxsize_Integer:1000] :=
						MPG0[totsteps, maxsize, init, 0, retain, rules]

:Evaluate:   MPSequences[rules_List, init_List, totsteps_Integer, 
					retain_Integer:0, maxsize_Integer:1000] :=
						Sort /@ MPG0[totsteps, maxsize, init, 1, retain, rules]
:Begin:
:Function: mpsearch
:Pattern:  MPSearch[maxlen_Integer, totrules_Integer, tot_Integer,
				init_List, retain_Integer:0, vecret_:{1,0,0,0,0,0,0,0}]
:Arguments: {tot, totrules, maxlen, init, retain, vecret}
:ArgumentTypes: {Integer, Integer, Integer, IntegerList, Integer, IntegerList}
:ReturnType:  Manual
:End: