alias -l isheb { return $regex($1-,(à|á|â|ã|ä|å|æ|ç|è|é|ë|ì|î|ð|ñ|ò|ô|ö|÷|ø|ù|ú)) }
alias F4 {
  if ($isheb(%corr) == 1) {
    say 3Correction1: $replace( $+ %corr,/,q,ø,r,à,t,è,y,å,u,ï,i,í,o,ô,p,ù,a,ã,s,â,d,ë,f,ò,g,é,h,ç,j,ì,k,æ,z,ñ,x,á,c,ä,v,ð,b,î,n,ö,m,ó,;,.,õ,ú,$chr(44),÷,e,ê,l,',w)
  }
  else {
    say 3Correction1: $replace( $+ %corr,q,/,r,ø,t,à,y,è,u,å,i,ï,o,í,p,ô,a,ù,s,ã,d,â,f,ë,g,ò,h,é,j,ç,k,ì,z,æ,x,ñ,c,á,v,ä,b,ð,n,î,m,ö,;,ó,.,õ,$chr(44),ú,e,÷,l,ê,w,')
  }
}

alias -l isheb { return $regex($1-,(à|á|â|ã|ä|å|æ|ç|è|é|ë|ì|î|ð|ñ|ò|ô|ö|÷|ø|ù|ú)) }
alias F4 {
  if ($isheb(%corr) == 1) {
    say 3Correction1: $replace( $+ %corr,/,q,ø,r,à,t,è,y,å,u,ï,i,í,o,ô,p,ù,a,ã,s,â,d,ë,f,ò,g,é,h,ç,j,ì,k,æ,z,ñ,x,á,c,ä,v,ð,b,î,n,ö,m,ó,;,.,õ,ú,$chr(44),÷,e,ê,l,',w)
  }
  else {
    say 3Correction1: $replace( $+ %corr,q,/,r,ø,t,à,y,è,u,å,i,ï,o,í,p,ô,a,ù,s,ã,d,â,f,ë,g,ò,h,é,j,ç,k,ì,z,æ,x,ñ,c,á,v,ä,b,ð,n,î,m,ö,;,ó,.,õ,$chr(44),ú,e,÷,l,ê,w,')
  }
}