pri.fun 275 B

123456789101112131415
  1. #import std
  2. #import nat
  3. #import for
  4. #import mul
  5. #binary+
  6. pri =
  7. ~&iNC 'priority': ~&r.formulators; -+
  8. ^plrTS(
  9. (--' '+ ~&rS+zipp` )^*D(leql$^,~&)+ <'option','------'>--+ ~&lS,
  10. <'priority','--------'>--+ ~&rS; * ~&h+ %nP),
  11. ~&rF+ * ^/~mnemonic ~favorite+-