more work on bprog