1#lang racket 2 3(define (sum l) 4 (apply + l)) 5 6(displayln 7 (sum (map string->number (file->lines "input.txt"))))