Root.aplf

 Root←{ ⍝ √ (square) root
     0::∆SIGNAL ⎕DMX
     ⍺←2
     ⍵*⍙LA÷⍺
 }