anchor.diff:      header("echessd - Home", []) ++
           h1("Logged in as \"" ++ User ++ "\"") ++
           navigation() ++
  +        "<br>" ++
  +        user_info(User, UserInfo) ++
           "<br>" ++
           user_games(User, UserInfo) ++
           "" ++
  
positive.code: %% ----------------------------------------------------------------------
  %% Internal functions
  %% ----------------------------------------------------------------------
  
  user_games(User, UserInfo) ->
      case proplists:get_value(games, UserInfo) of
  
negative.code: tt(String) ->
      "<tt>" ++ String ++ "</tt>".
  
  td(String) ->
      "<td>" ++ String ++ "</td>".
  
  tr(String) ->
      "<tr>" ++ String ++ "</tr>".
  
  table(Game) ->
      "<table cellpadding=0 cellspacing=0>\n"
          "<tr>\n"
  