#lang br (require syntax/strip-context sugar/list) (provide (all-defined-out) (all-from-out syntax/strip-context sugar/list)) (define (port->datums port) (for/list ([datum (in-port read port)]) datum)) (define (number->digits num) (for/list ([c (in-string (number->string num))]) (string->number (string c))))