# define num ~%#+ %# ;
#[
# $[%+Num] 
#& ~$[num^3]
#] ;

[
[$[%+Num] | $[%+Ord] | $[%+Coll]]
& ~$[~%#+ %# ~%#+ %# ~%#+ %# ~%#+ %# ~%#+ %# ~%#+ %#]
& ~$[%+Der1] 
& ~$[%+Der2] 
& ~$[%+Der3] 
& ~$[%+Der4]
& ~$[%+Der5]
] ;