interval-sq ( i1 -- i2 )


Vocabulary
math.intervals

Inputs
i1an object


Outputs
i2an object


Definition
USING: kernel ;

IN: math.intervals

: interval-sq ( i1 -- i2 ) dup interval* ;