a # 1 60 R ' r#n extend v                                               '
a # a,[1]  ' r#v,(0Sn_Rv)R-1Yv                                          '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"extend - extend vector with last value                     '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-the apl Y would extend a vector by padding it with zeros  '
a # a,[1]  '" or blanks.                                                '
a # a,[1]  '"-extend will fill the space remaining on the right with the'
a # a,[1]  '" rightmost value.                                          '
a # a,[1]  '"-this will happen only if n>Rv.                            '
a # a,[1]  '"-extend returns a vector of length n, or Rv, whichever is  '
a # a,[1]  '" greater.                                                  '
Lfx a