#!/usr/prac/se/bin/hush -f
    
    proc generate {} { 
     	.m configure -text [.s get]
    }
    
    scale .s -label "seed" -orient horizontal -relief sunken
    message .m -width 256 -aspect 200 
    
    pack .m .s -fill x
    
    bind .s <Any-ButtonRelease> { generate }