How does one call stored procedures from OraTCL?

One can execute procedures, functions and anonymous PL/SQL blocks from OraTCL using the "oraplexec" function call. Look at this example:

package require Oratcl
set con [oralogon "URANO/AHONDARA@ZMDB"]

set plblock {
    begin
       SELECT count(*) into :n
         FROM XQTE.FAC_PARTS_MASTER
        WHERE maker_code = :mcode;
    end;
}

set cur [oraopen $con]
foreach e {"SELF" "BMON12"} {
    oraplexec $cur $plblock :n "" :mcode $e
    set r [orafetch $cur]
    puts "maker=[lindex $r 1] count=[lindex $r 0]"
}
oraclose $cur
oralogoff $con