anchor.diff:  	CleanSpec = re:replace(TrimmedSpec, "[^A-Za-z]", "", [global, {return,list}]),
   	% io:format("~p ~p", [CleanSpec, TrimmedSpec]),
   	(CleanSpec =:= TrimmedSpec) and (length(CleanSpec) == 1).
  +
  +diamond(Spec) -> 
  +	Instructions = row_instructions_for(Spec),
  +	io:format("~p\n", [Instructions]),
  +	lists:map(fun(Instruction) -> row_for(Instruction) end, Instructions).
   
   -ifdef(TEST).
   
  
positive.code: 	"[^" ++ Letter ++ "]".
  
  row_for(Letter) ->
  	re:replace(?ROW_TEMPLATE, everything_but(Letter), " ", [global, {return,list}]).
  
  is_valid_spec(Spec) -> 
  
negative.code: 	].
  
  smoke_test() ->
      ok = application:start(alphadiamond),
      diamond("Z").
  
  -endif.