#lang racket
(require 2htdp/universe)

(define (string->sexp s)
  (with-handlers ([exn:fail:read? (λ (x) #f)])
    (with-input-from-string s read)))
  
(provide/contract [string->sexp (string? . -> . (or/c false/c sexp?))])