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

(define page
  (lambda ()
    (let ((bankroll (string->number
                     (get-cgi-variable "bankroll" "100"))))
      (make-page
       (head "Poker Fun")
       (body 
        (string-append
         (paragraph
          (string-append
           "You have " (number->string bankroll)))
         (form "deal.cgi" "Bet"
               (string-append
                (textfield "bet" "10")
                (hidden "bankroll" (number->string bankroll))))
         ) 
        )
       )
      )
    )
  )