omnomnom

; Takes two arguments. One is a number, while the other is a salty/sweet thing.
; Example Call: (omnomnom 10 'sweet)
(define (omnomnom stomachsize sos)
  (define (omnomnomnom stomachsize toggle)
    (cond
      ((equal? toggle 'pmt)
        (if (equal? stomachsize 'uhoh)
          (begin (display "*drinks pearl milk tea*") (newline) (omnomnomnom 'rest 'pmt))
          (begin (display "*short break*") (newline) (omnomnomnom 'uhoh 'pmt))))
      ((= stomachsize 0) (show "ITHURTS. T_T"))
      ((= toggle 1) (begin (display "*eats sweet food*") (newline) (omnomnomnom (- stomachsize 1) 0)))
      ((= toggle 0) (begin (display "*eats salty food*") (newline) (omnomnomnom (- stomachsize 1) 1)))
      (else (show "Ew."))))
  (define salty '(salty salt tear tears T_T boog…nevermind)) ; salty things
  (define sweet '(sweet sugar cake cakes candy candies nicepeople)) ; sweet things
  (cond
    ((equal? sos 'pmt) (omnomnomnom 'uhoh 'pmt)) ; what?
    ((= stomachsize 0) (show "Wimp."))
    ((member? sos salty) (omnomnomnom stomachsize 0))
    ((member? sos sweet) (omnomnomnom stomachsize 1))
    (else (show "Ew."))))