#!/usr/bin/perl

use strict;
use warnings;

my $id = 0;
my $set_id = 103826;
my $name = "CR";

while (<STDIN>) {
    chomp;
    s/'/''/g;
    s/&/&amp;/g;
    s/</&lt;/g;
    s/>/&gt;/g;
    print "INSERT INTO white_cards VALUES ($id, '$_', '$name');\n";
    print "INSERT INTO card_set_white_card VALUES ($set_id, $id);\n";
    $id++;
}