shinyServer(
  function(input, output) {
    output$plotOut <- renderPlot({
      s <- sample(input$sampleRange, input$sampleCount, replace=TRUE)
      hist(s)
    })
  }
)