anchor.diff:  
         ( {query, E} ) ->
           V = cre_client:eval( ClientName, E ),
  -        S = format_expr( V ),
  -        io:format( "~s~n", [S] );
  +        {ok, T} = cuneiform_type:type( V ),
  +        SV = format_expr( V ),
  +        ST = format_type( T ),
  +        io:format( ?GRN( "~s" )++"~n"++?BLU( ": " )++?BBLU( "~s" )++"~n", [SV, ST] );
  +
  +      ( {parrot, E, T} ) ->
  +        SE = format_expr( E ),
  +        ST = format_type( T ),
  +        io:format( "~s~n"++?BLU( ": " )++?BBLU( "~s" )++"~n", [SE, ST] );
   
         ( Reply ) ->
           S = format_error( Reply ),
  
positive.code: -define( GRN( Str ), "\e[32m" ++ Str ++ "\e[0m" ).
  -define( YLW( Str ), "\e[33m" ++ Str ++ "\e[0m" ).
  -define( BYLW( Str ), "\e[1;33m" ++ Str ++ "\e[0m" ).
  -define( BLU( Str ), "\e[1;34m" ++ Str ++ "\e[0m" ).
  
  
  -record( shell_state, {line       = 1,
  
negative.code:      "           @@WB      Cuneiform",
       "          @@E_____   version "++?VSN++"    build "++?BUILD,
       "     _g@@@@@WWWWWWL",
       "   g@@#*`3@B         "++?YLW( "Type " )++?BYLW( "help" )++?YLW( " for usage info" ),
       "  @@P    3@B              "            ++?BYLW( "quit" )++?YLW( " to exit shell" ),
       "  @N____ 3@B",
       "  \"W@@@WF3@B         "++?BLU( "http://www.cuneiform-lang.org" )
  ], "\n" ).
  