USING: kernel math sequences unicode.data ;

IN: unicode.categories

: blank? ( object -- ? )
dup integer? [
dup
category#
V{ 23 24 25 }
member?
[ drop t ]
[ "\r\n\t" member? ]
if
] [ drop f ] if ;