wlot := proc() local filename, plotfunction, argmts; filename := args[1]; plotfunction := args[2]; argmts := args[3..nargs]; gifit(cat(filename,`.`,gif)); map(plotfunction,argmts); end; gifit := proc() plotsetup(gif,plotoutput = args); end;