require: PLaneT
could not find the requested package: Server had no matching package:
No package matched the specified criteria

(define whoops
  (let ((string? string?)
    (string-append string-append)
    (error error)
    (cons cons)
    (map map)
    (apply apply))
    (define (error-printform x)
      (if (string? x)
      (string-append """ x """)
      x))
    (lambda (string . args)
      (apply error (cons string (map error-printform args))))))

(if (char=? #+ (string-ref (number->string 1.0) 0))
    (let ((old-ns number->string)
      (char=? char=?)
      (string-ref string-ref)
      (substring substring)
      (string-length string-length))
      (set! number->string
        (lambda args
          (let ((result (apply old-ns args)))
        (if (char=? #+ (string-ref result 0))
            (substring result 1 (string-length result))
            result)))))
    'no-problem)

(require (planet dyoo/simply-scheme:1:2/simply-scheme))