routine main
  inputs a
  outputs a
  trashes c, z, n, v
{
    st off, c
    add a, 4
}