//-------------------------------------------------------       
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡       
$(_EQ())       
  $       
$_       
${(5. ⥫ ப ᯨ᪠)       
  $(__,0);  // 0 (1,...) - ⢮ ய᪮ ப       
  $(_,"-");      // ᨬ  મ: "-" ( .ᨬ)       
$}(5. ⥫ ப ᯨ᪠)       
${(6. ⥫ ⮫殢 ᯨ᪠)       
  $(__,1); // 1,2,...-᫮ ᨬ  ࠧ      
  $(_,"|");     // ᨬ-ࠧ⥫  (|  ||  ..)     
$}(6. ⥫ ⮫殢 ᯨ᪠)       
${(7. ਧ  )       
  $(_," "); // " " (஡) -   㫨, "0" -        
$}(7. ਧ  )       
${(1.  ᯨ᪠)       
//   ⨬ ਥ 室 ⥪  ᯨ᪠
         #DAT(C,10,0)=(7);

                         @DAT.
$}(1.  ᯨ᪠)       
//${(砫 㬬)       
  #=_(_);     //  砫 㬬       
//$}(砫 㬬)       
&(N,5,0)=0;       
&(N,5,0)=1;                                 // 稪 ࠭       
#(N,3,0)=_();                      //  ࠭       
//${( ⠡)       
  #=_(,,)             //         
  #=_(__);                 //  㬬         
//$}( ⠡)       
$                                             //     ⠡       
  //${(ப )       
    #=_();                         // ਧ         
    $()       
      #=_(_,,)  //   ப ⠡       
    $_       
  //$}(ப )       
  &=+1;       
  #(N,5,0)=_();                 // 稪 ப         
  $(_GE(+6-)+_EQ(-))       
    //${(⮣ )       
      #=_(,_);            //  ⮣  .       
      #=_(__);            //  ⮣  .       
    //$}(⮣ )       
    ${(3.  )       
//   ⨬ ਥ 室 ⥪          
       
    $}(3.  )       
    $(_LT(-))       
      $_       
      ${(2.  )       
//   ⨬ ਥ 室 ⥪         
       
      $}(2.  )       
      //${( ⠡).   .       
        #=_(,,)             //         
        #=_(__);                 //  㬬       
      //$}( ⠡).   .       
    $_       
  $_       
$(_GT(-))       
//${(⮣ )       
  #=_(_)       
//$}(⮣ )       
${(4.  ᯨ᪠)       
//   ⨬ ਥ 室 ⥪   ᯨ᪠       
       
$}(4.  ᯨ᪠)       
$LF