;"Negate X if its value is less than 0"
<AND <L? .X 0> <SET X <- .X>>>

;"Print a message unless the quiet flag is set"
<OR .QUIET? <PRINC "Finished">>