procedure call example fixed