; trabb pardo-knuth algorithm
 
(define (tpk len)
  (define (f x) (+ (sqrt (abs x)) (* 5 x x x)))
  (let loop ((len len) (nums '()))
    (if (positive? len)
        (loop (- len 1) (cons (read) nums))
        (for-each
          (lambda (x)
            (let ((result (f x)))
              (display (if (< 400 result) "TOO LARGE" result))
              (newline)))
          nums))))
 
(tpk 11)
 
(define (read-number len)
  (let ((vec (make-vector len 0)))
    (do ((i 0 (+ i 1)) (num (read) (read)))
        ((or (= i len)(eof-object? num)) vec)
      (vector-set! vec i num))))
 
(define (vector-reverse vec)
  (do ((lo 0 (+ lo 1))
       (hi (- (vector-length vec) 1) (- hi 1)))
      ((<= hi lo) vec)
    (let ((t (vector-ref vec lo)))
      (vector-set! vec lo (vector-ref vec hi))
      (vector-set! vec hi t))))
 
(define (f num) (+ (sqrt (abs num)) (* 5 num num num)))
 
(define (tpk len)
  (let ((vec (vector-reverse (read-number len))))
    (do ((i 0 (+ i 1))) ((= i len))
      (let ((result (f (vector-ref vec i))))
        (display (if (< 400 result) "TOO LARGE" result))
        (newline)))))
 
(tpk 11)

OyB0cmFiYiBwYXJkby1rbnV0aCBhbGdvcml0aG0KCihkZWZpbmUgKHRwayBsZW4pCiAgKGRlZmluZSAoZiB4KSAoKyAoc3FydCAoYWJzIHgpKSAoKiA1IHggeCB4KSkpCiAgKGxldCBsb29wICgobGVuIGxlbikgKG51bXMgJygpKSkKICAgIChpZiAocG9zaXRpdmU/IGxlbikKICAgICAgICAobG9vcCAoLSBsZW4gMSkgKGNvbnMgKHJlYWQpIG51bXMpKQogICAgICAgIChmb3ItZWFjaAogICAgICAgICAgKGxhbWJkYSAoeCkKICAgICAgICAgICAgKGxldCAoKHJlc3VsdCAoZiB4KSkpCiAgICAgICAgICAgICAgKGRpc3BsYXkgKGlmICg8IDQwMCByZXN1bHQpICJUT08gTEFSR0UiIHJlc3VsdCkpCiAgICAgICAgICAgICAgKG5ld2xpbmUpKSkKICAgICAgICAgIG51bXMpKSkpCgoodHBrIDExKQoKKGRlZmluZSAocmVhZC1udW1iZXIgbGVuKQogIChsZXQgKCh2ZWMgKG1ha2UtdmVjdG9yIGxlbiAwKSkpCiAgICAoZG8gKChpIDAgKCsgaSAxKSkgKG51bSAocmVhZCkgKHJlYWQpKSkKICAgICAgICAoKG9yICg9IGkgbGVuKShlb2Ytb2JqZWN0PyBudW0pKSB2ZWMpCiAgICAgICh2ZWN0b3Itc2V0ISB2ZWMgaSBudW0pKSkpCgooZGVmaW5lICh2ZWN0b3ItcmV2ZXJzZSB2ZWMpCiAgKGRvICgobG8gMCAoKyBsbyAxKSkKICAgICAgIChoaSAoLSAodmVjdG9yLWxlbmd0aCB2ZWMpIDEpICgtIGhpIDEpKSkKICAgICAgKCg8PSBoaSBsbykgdmVjKQogICAgKGxldCAoKHQgKHZlY3Rvci1yZWYgdmVjIGxvKSkpCiAgICAgICh2ZWN0b3Itc2V0ISB2ZWMgbG8gKHZlY3Rvci1yZWYgdmVjIGhpKSkKICAgICAgKHZlY3Rvci1zZXQhIHZlYyBoaSB0KSkpKQoKKGRlZmluZSAoZiBudW0pICgrIChzcXJ0IChhYnMgbnVtKSkgKCogNSBudW0gbnVtIG51bSkpKQoKKGRlZmluZSAodHBrIGxlbikKICAobGV0ICgodmVjICh2ZWN0b3ItcmV2ZXJzZSAocmVhZC1udW1iZXIgbGVuKSkpKQogICAgKGRvICgoaSAwICgrIGkgMSkpKSAoKD0gaSBsZW4pKQogICAgICAobGV0ICgocmVzdWx0IChmICh2ZWN0b3ItcmVmIHZlYyBpKSkpKQogICAgICAgIChkaXNwbGF5IChpZiAoPCA0MDAgcmVzdWx0KSAiVE9PIExBUkdFIiByZXN1bHQpKQogICAgICAgIChuZXdsaW5lKSkpKSkKCih0cGsgMTEp

LTUgLTQgLTMgLTIgLTEgMCAxIDIgMyA0IDUKLTUgLTQgLTMgLTIgLTEgMCAxIDIgMyA0IDU=

-5 -4 -3 -2 -1 0 1 2 3 4 5
-5 -4 -3 -2 -1 0 1 2 3 4 5