Problem Statement

Compute the   factors   of a positive integer. These factors are the positive integers by which the number being factored can be divided to yield a positive integer result. (Though the concepts function correctly for zero and negative integers, the set of factors of zero has countably infinite members, and the factors of negative integers can be obtained from the factors of related positive numbers without difficulty;   this task does not require handling of either of these cases). Note that every prime number has two factors:   1   and itself.

Let's start with the solution:

  [ [] swap
    dup sqrt+ 0 = dip
      [ times
        [ dup i^ 1+ /mod iff
            drop done
          rot join 
          i^ 1+ join swap ]
        drop 
        dup size 2 / split ]
    if [ -1 split drop ]
    swap join ]                is factors (   n --> [  )
  
  20 times 
    [ i^ 1+ dup 
      dup 10 < if sp 
      echo 
      say ": "  
      factors witheach
        [ echo i if say ", " ]
      cr ]