alias addj {
  write funny.txt $1-
  echo -ta quote stored as $+($chr(91),$lines(funny.txt),$chr(93))
}
alias joke {
  if ($1 == -s) {
    var %quote $rand(1,$lines(funny.txt))
    say 2(QUOTE2) $+($chr(2),$chr(3),02,$chr(40),$chr(3),$chr(2),$iif($2,$2,%quote),/,$lines(funny.txt),$chr(2),$chr(3),02,$chr(41),$chr(3),$chr(2)) 2( $+ $read(funny.txt,$iif($2,$2,%quote))) $+ 2)
  }
  else {
    var %quote $rand(1,$lines(funny.txt))
    echo -a [QUOTE][ $+ $iif($1,$1,%quote) $+ / $+ $lines(funny.txt) $+ ] " $+ $read(funny.txt,$iif($1,$1,%quote))) $+ "
  }
}