negative shifts working in pascal now.