alias dify {
  if $isid { var %dify $1 | $regsubex($1,/(\S+)/g,$iif(($count(\1,h) && $count(\1,s) && $count(\1,n)),write b.txt %dify)) }
  else filter -fk a.txt dify *
}