define ceil(x) {
  auto s, r
  s = scale
  scale = 0
  r = x / 1
  if(r < x) {
    r = r + 1
  }
  scale = s
  return (r)
}