occur(add_car)
exec(move_lift(rotate))
exec(move_lift(basement))
exec(move_belts([b_r1lift, b_r1b], col_inc, full))
exec(move_lift(street))
occur(add_car)
exec(move_lift(basement))
exec(move_belts([b_r1a, b_r1lift, b_r1b, b_r1b_sh], col_dec, half))
exec(move_lift(street))
