Novel regioselective protoberberine synthesis by thermolysis