#!/usr/bin/perl

while (<>) {
    chop;
    ($name, $text) = split(/\s+/, $_, 2);
    print "#ifdef $name\n    $name, \"$text\",\n#endif\n";
}
