-record(vector, {x :: double,
                 y :: double,
                 z :: double}).

newvector(X,Y,Z) ->
    #vector{x=X,y=Y,z=Z}.

sprod(a, b) -> a#x * b#x + a#y * b#y + a#z * b#z.

card.erl:31: syntax error before: '*'                
card.erl:15: Warning: function newvector/3 is unused 

sprod(A, B) -> A#vector.x * B#vector.x + A#vector.y * B#vector.y + A#vector.z * B#vector.z.

> erl -noshell -s card main -s init stop
{"init terminating in do_boot",{undef,[{card,main,[],[]},{init,start_em,1,[{file,"init.erl"},{line,1085}]},{init,do_boot,3,[{file,"init.erl"},{line,793}]}]}}
init terminating in do_boot ({undef,[{card,main,[],[]},{init,start_em,1,[{_},{_}]},{init,do_boot,3,[{_},{_}]}]})

Crash dump is being written to: erl_crash.dump...done