alias -l isheb { return $regex($1-,(א|ב|ג|ד|ה|ו|ז|ח|ט|י|כ|ל|מ|נ|ס|ע|פ|צ|ק|ר|ש|ת)) } 
alias F12 { 
  if ($isheb(%corr) == 1) { 
    say correction: $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 correction: $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,') }
} 
on *:input:*:{ if ($left($1,1) != /) { set %corr $1- } }