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