Split and count from text input

split_and_count.rkt

#lang racket

(define c 0)

(with-input-from-file "/path/to/file"
  (thunk
   (for ([line (in-lines)])
     (set! c
           (+ c
              (length
               (string-split line "|||")))))))
  
(displayln c)