Trivial function composition example in factor

aboveAndDiv2.factor

USING: kernel io sequences math math.ranges namespaces arrays
prettyprint ;

IN: aboveAndDiv2

: above60 ( seq -- seq )
    [ 60 >= ] filter ;

: div2 ( seq -- seq )
    [ 2 / ] map ;

: above60AndDiv2 ( seq -- seq )
    [ above60 ] [ div2 ] compose call ;

: testIt ( -- x )
    65 [1,b] above60AndDiv2 ;