alias oku {
  msg $active $regsubex($read(sistem/4.txt),/(^| )(.)/g,\1 $+(Ctrl+K,$rand(1,15))) 
}