#!/bin/sh

NAME= # Your name here

function solve_prob1() {
	N=$1
	echo -n $ANSWER
}

function solve_prob2() {
	WORD1=$1
	WORD2=$2
	LENGTH=$3
	echo -n $ANSWER
}

VARS="$(tempfile)"
wget -O - -q "http://www.bucko.me.uk/competitions/progcomp_20101111.pl?name=$NAME" | perl -ne 'while(/<input type="hidden" name="(.*?)" value="(.*?)"/g){print "$1=$2\n"}' > "$VARS"
. "$VARS"
prob1=$(solve_prob1 $prob1_n)
prob2=$(solve_prob2 $prob2_name1 $prob2_name2 $prob2_length)
POST="$(perl -e 'print join "&", @ARGV' prob1=$prob1 prob2=$prob2 $(cat "$VARS"))"
rm "$VARS"
wget -O - -q "http://www.bucko.me.uk/competitions/progcomp_20101111.pl" --post-data="$POST"