$rline ($lines) { 
   $lines? random($lines)!
   else?? none!
}

$main () { 
   arg( '-' ) or arg( )? print($rline(STDIN)) and close(STDIN)
   arg( filenames )?? for args { print($rline(<$>)) and close(<$>) }
}

->

rline = (lines)
   if {lines}
      @random lines

main = (argv)
   for fn in args
      rline <$fn>

* * *

whilst $f.readline {
   not($)? break!
   $lines.append($)
}

->

whilst {f.readline}
   if {not arg} break
   add lines arg

* * *

greet = (name)
   {name == "Alison"}? say "Hi Alison!"
   {name == "Bob"}?? say "Hey Bob!"

verbose? say "Testing"
otherwise?? say "Hey there"

hmm = { verbose? "Hey" "Hello there" }