(define draw-score
  (lambda (g)
    (beside (if (bigpilltime? g) (text "Pillenalarm!        " 15 "red") (text " " 15 "red"))
            (above (beside (text "Leben: " 15 "white")
                           (text (number->string (score-lives (game-score g))) 15 "white"))
                   (beside(text "Punkte: " 15 "white")
                          (text (number->string (score-points (game-score g))) 15 "white"))))))