let
    chrout = extern @0xffd2 : State[A/] -> State[/A]
in
    LDA# 40 ; (call chrout) ;
    LDA# 41 ; (call chrout) ;
    LDA# 42 ; (call chrout)