get "libhdr"

let dotproduct(A, B, len) = valof
$(  let acc = 0
    for i=0 to len-1 do
        acc := acc + A!i * B!i
    resultis acc
$)

let start() be
$(  let A = table 1, 3, -5
    let B = table 4, -2, -1
    writef("%N*N", dotproduct(A, B, 3))
$)