#!/usr/bin/perl -w

while (<STDIN>) {
    # s/^GogGraph/GoGraph/; # GogView will clash with GogGraphView
    s/^Gog/GoGraph/;

    s/^GocCanvas/GoCanvas/;
    s/^Goc/GoCanvas/;
    print;
}
