alias funny { 
if (!%funny) { 
set %funny 1 
return $read(funny.txt, %funny)
}
else {
if (%funny > $lines(funny.txt)) {
set %funny 0
}
inc %funny
return $read(funny.txt, %funny)
}
}