#lang racket

(apply +
 (for/list ([line (in-lines (current-input-port))])
   (string->number line)))