routine add_four
  inputs a
  outputs a
  trashes c
{
    st off, c
    add a, 4
}