(lambda (s) (let ((g ((fileVal "RC4") 'nb s))) (lambda () (/ (- (g 1) 128)(+ (g 1) 1)))))