lincomb←{
    fmtco←{
        mul←(⍵≠1)/(⍕|⍵),'*'
        mul,'e(',(⍕⍺),')'
    }

    co←⊃¨fmtco/¨(⍵≠0)/(⍳⍴,⍵),¨|⍵
    sgn←'-+'[1+(×⍵)/×⍵]
    lc←(('+'=⊃)↓⊢)∊sgn,¨co
    0=⍴lc:'0' ⋄ lc
 }