(use scheme.list) (use util.match) (use srfi.13) ; string (use srfi.42) ; list-ec (define input read-line) (define (ii) (string->number (read-line))) (define (li) (let ((s (read-line))) (map string->number (string-split s " ")))) (define (prn . args) (for-each (lambda (i x) (when (> i 0) (display " ")) (display x)) (iota (length args)) args) (newline)) (define int string->number) (define (minmax* xs) (apply min&max xs)) (define (sum . xs) (apply + xs)) (define (sum* xs) (apply + xs)) (define divmod div-and-mod) (let ((T (ii))) (dotimes (_ T) (let ((x (ii))) (if (= x 45) (prn "Y") (prn "N")))))