Why not ('a,'b) subcont -> 'a -> 'b?
, , push_prompt - . push_prompt p (fun () -> e) try e with p: p , e . push_prompt p e, p e, e " " , .
push_subcont sk (fun () -> e) : : " sk, ". , e , , , , , sk.
('a,'b) subcont = 'a -> 'b?
, : " " , .
: push_subcont push_delim_subcont, , . "" , . , .