sig
val
flush : unit
->
unit
val
beep : unit
->
unit
end