ASPL 1> egCwhoami

ASPL 2> attributes

ASPL 3> waterlevelday1 = ggbaylevel()

ASPL 4> ?45,1 waterlevelday1

ASPL 5> split waterlevelday1 into BAY1 BAY2 CRITICAL GOOD WARN

ASPL 6> ks mean123 mtime aelm

ASPL 7> f&`ks= CRITICAL BAY1 BAY2

ASPL 8> f&`ks= WARN BAY1 BAY2

ASPL 9> f&`ks= CRITICAL BAY1

ASPL 10> f&`ks= CRITICAL BAY2

ASPL 11> DEF FN critical := {fU {f&`ks= CRITICAL BAY1}{f&`ks= CRITICAL BAY2}}

ASPL 12> DEF FN warn := {fU {f&`ks= CRITICAL BAY1}{f&`ks= CRITICAL BAY2}{f&`ks= WARN BAY1}{f&`ks= WARN BAY2}}

ASPL 13> FN critical()

ASPL 14> FN warn()

ASPL 15> bye