Code:
on *:TEXT:!LKF*:#:{
  inc %read.lkf
  if $lines(LKF.txt) < %read.lkf { set %read.lkf 1 }
  msg # Litte Known Fact : $read(LKF.txt,n,%read.lkf)
}