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