print_source_line( frame->procedure );
debug_compile( int which, char *s, FRAME* frame ){    static int level = 0;    static char indent[36] = ">>>>|>>>>|>>>>|>>>>|>>>>|>>>>|>>>>|";    if ( which >= 0 )    {      int i;            i = (level+1)*2;      while ( i > 35 )      {        printf( indent );        i -= 35;      }      print_source_line( frame->procedure );      printf( "%*.*s ", i, i, indent );    }    if( s )        printf( "%s ", s );    level += which;}