Agda2> (agda2-status-action "") (agda2-info-action "*Type-checking*" "" nil) (agda2-highlight-clear) (agda2-info-action "*Type-checking*" "Checking Issue889 (Issue889.agda).\n" t) (agda2-info-action "*Type-checking*" "Finished Issue889.\n" t) (agda2-status-action "") (agda2-info-action "*All Goals*" "?0 : {A : Set} {B : State S A → Set} (m : State S A) →\n((x : A) → State S (B (state-return x))) → State S (B m)\n" nil) ((last . 1) . (agda2-goals-action '(0))) Agda2> (agda2-give-action 0 "_>>=_") (agda2-status-action "") (agda2-info-action "*All Goals*" "" nil) ((last . 1) . (agda2-goals-action '())) Agda2>