Create prog principal