// This will not compile on its own, because `printa` and `printb` are not defined.
// But `vector-inc.60p` and this together will compile.

vector routine
  trashes a, z, n
    print

// routine printb
//   trashes a, z, n
// {
//     ld a, 66
//     call chrout
// }

define main routine
  trashes print, a, z, n
{
    copy printa, print
    call print
    copy printb, print
    call print
}