: clip ( max val -- val? )
    {
        { [ 0 < ] [ drop f ] }
        { [ < ] [ f ] }
        [ nip ]
    } cond ;