úκ(     2 !"# $%&'()*+,-./01    2      !"#$%&'()*+,-./0 prototype-0.1Control.PrototypeMethodMemberObjectPTMonadrunPT initPTEnvliftPT makeMembermethod setMethodprimIntprimStr fromPrimInt fromPrimStrobjectprintMemberNameclone setMembermember ObjectEnv ObjectMonadVarNameObjectIdPrimitiveStringfromPrimitiveString PrimitiveIntfromPrimitiveInt objectIdInt ObjectBody_methodobjectId objectStatus primitiveIntprimitiveString initObject printVarName initObjectEnv runObject getObject putObjectgetNewId mkVarNamesetVargetVarmkMethodsendMsg