Made classes following p-code.