#lang racket

(define name (read-line (current-input-port)))
(define number (string->number (read-line (current-input-port))))

(for ([j (in-range 0 number)])
  (printf "Hipp hipp hurra, ~a!~n" name))