val theta :
width:int ->(Progress_engine__.Line_buffer.t ->event-> unit)->'at
val alpha :
width:int ->initial:[ `Theta of Progress_engine__.Line_buffer.t -> unit| `Val of 'a ]->(Progress_engine__.Line_buffer.t ->event->'a-> unit)->'at
val alpha_unsized :
initial:
[ `Theta of width:(unit -> int)->Progress_engine__.Line_buffer.t -> int| `Val of 'a ]->(width:(unit -> int)->Progress_engine__.Line_buffer.t ->event->'a->
int)->'at