basetype.dをtypeclass.dを使用して改良