(cascade 500[pr ? ?-bitor -1-# #+1]1)+bye