//-------------------------------------------------------      
#(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