anchor.diff:  %% js_escape(<<"<script", Rest/binary>>, Acc) -> js_escape(Rest, <<Acc/binary, "<scr\" + \"ipt">>);
   %% js_escape(<<"script>", Rest/binary>>, Acc) -> js_escape(Rest, <<Acc/binary, "scr\" + \"ipt>">>);
   
  +js_array(L) ->
  +    [ $[, combine($,,[ js_prop_value(undefined, V) || V <- L ]), $] ].
   
   %% @doc Create a javascript object from a proplist
   js_object([]) -> <<"{}">>;
  
positive.code: 	is_process_alive/1,
  	is_true/1,
  	js_escape/1,
  	js_object/1,
  	js_object/2,
  	lib_dir/0,
  
negative.code: 
  %% recursively add all properties as object properties
  js_object1([], Acc) ->
      [${, combine($,,lists:reverse(Acc)), $}];
  js_object1([{Key,Value}|T], Acc) ->
      Prop = [atom_to_list(Key), $:, js_prop_value(Key, Value)],
      js_object1(T, [Prop|Acc]).
  