NB. compress multiple adgjacent items to a single item
compress =: monad define
y. =. ' ' , y. , ' '
t =. y. = ' '
1 drop _1 drop (1 , not (1 drop t) and _1 drop t)#y.
)