(load "/home/rebelsky/Web/Scheme/webutils.ss")

(define page
  (lambda ()
    (let ((bankroll (string->number
                     (get-cgi-variable "bankroll" "100")))
          (bet (string->number
                (get-cgi-variable "bet" "1")))
          )
      (make-page
       (head "Your Hand")
       (body 
        (string-append
         (paragraph
          (string-append
           "You had " (number->string bankroll)))
         (paragraph
          (string-append
           "You bet " (number->string bet)))
         (paragraph
          (string-append
           "You now have " (number->string (- bankroll bet))))
         (form "start.cgi" "Play Again"
               (string-append
                "Your cards are 2 of spades and random crap.  "
                "You lose."
                (hidden "bankroll" (number->string (- bankroll bet)))))
         ) 
        )
       )
      )
    )
  )