function strcat,input_array,trim=trim

IF N_ELEMENTS(input_array) LT 2 THEN $
    MESSAGE,'Single-element array - no need!',/INFORMATIONAL

out=''
FOR i=0,N_ELEMENTS(input_array)-1 DO BEGIN
    piece=STRING(input_array(i))
    IF KEYWORD_SET(trim) THEN piece=STRCOMPRESS(piece)
    out=out+piece
    ENDFOR

RETURN,out
END