alias f5 {
  var %a~ mavi,sarı,kırmızı,siyah  
  $gettok(%a~,$r(1,$gettok(%a~,0,44)),44)
}