webplot := proc() local filename, f, fargs; filename := args[1]; f := args[2]; fargs := args[2..nargs]; plotsetup(x11); doplot(f,fargs); plotsetup(gif,plotoutput=cat(````,filename,````)); doplot(f,fargs); plotsetup(x11); end; doplot := proc() map(args[1],args[2..nargs]); end;