use overload"!",sub{$_=${$_[0]}+1;bless\$_},'neg',sub{$_=${$_[0]};
print+(split//,' erahtcJklnopsu.')[$_];$_=0;bless\$_};$a=0;$_=bless\$a
;-!!!!!! !!!!  !!!! !-!!-!-!  !!!!  !!      !- !!!!!!-! !!-!!!  !-+-!!
   !!    !! !!!- !!    -!    -!  !! !!      !!    !!     !!  !-   -!  
   !-    !-  !!  !!    -!    !!  !!  -! !! !!     !!     !!  !!   -!  
   !!    !!      !!    !!    !-  !!  !-+-!!!!     !-     !!  !!   !!  
   !!    !!      !!    !-     !!!!    !!  !!      !!    !!!!-!  !!!!!!
$_