Here is a verb whose domain is single numbers and whose result is the simplest array which contains that number:
number =: {.@,@:+&($: ::]@,: 0x)
number 1 1 1$ 0
0
$number 1 1 1$ 0
number 1 2
|length error: number
number 'a'
|domain error: number
--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
