sub cprintf {
    my($fmt)= shift;
    $fmt=~s/%(-?\d*)d/%'$1d/g;
    system('/usr/bin/printf', $fmt, @_)
  }