Module:R from fictional object multi/sandbox

 require("strict")

 localp={}

 localresolveRedir=require("Module:Resolve category redirect").rtarget

 --[[
 Local function which creates the relevent category, either with or without a sort key.
 --]]
 localfunctioncreateCategory(categoryScheme,name,sortKey)
 localcategory=name.." "..categoryScheme
 category=resolveRedir(category)

 if(sortKey)then
 category=category.."|"..sortKey
 end

 return"[[Category:"..category.."]]"
 end

 --[[
 Local function which handles the main process.

 Parameters:
 	-- |1...8=		— required; Positional or numbered parameters for each series name.
 	-- |category=	— required; The redirect category scheme to be used.
 	-- |sort=		— optinal; A sort key for the category.
 --]]
 localfunction_main(args)
 -- If category wasn't set, return error.
 if(notargs.category)then
 returnerror
 end

 localcategories=""
 fori=1,10do
 if(args[i])then
 categories=categories..createCategory(args.category,args[i],args["sort"])
 end
 end

 returncategories
 end

 --[[
 Entry point.
 --]]
 functionp.main(frame)
 localgetArgs=require("Module:Arguments").getArgs
 localargs=getArgs(frame)
 return_main(args)
 end

 returnp