"Limited-range integer numbre (32 bits)"

    (lambda (lexical)

      (and (integer? (string->number lexical))

           (<= (string->number lexical) 2147483647)))

    (lambda (value)

      (and (integer? value)