(define (main args)
  (let* ([a (read)]
         [b (read)])
    ($ print
       $ - 3
       $ max 0
       $ - (min b 25)
       $ max (- a 1) 22))
  0)