#!/bin/sh
I=0
for A; do echo "$A"; done |
perl -pe '
	/pastebin\.com/	&& s{(.*)/(.*)}{$1/pastebin.php?dl=$2};
	/codepad\.org/	&& s{(/raw\.c)?$}{/raw.c};
	/fpaste\.org/	&& s{/?$}{/raw/};
	/pastebin\.ca/	&& s{(.*)/(.*)}{$1/raw/$2};
' |
while read A; do
	while true; do I=$(($I+1)); [ ! -e $I.c ] && break; done
	wget -q "$A" -O $I.c
	echo "$I.c	$A"
done

# http://pastebin.com/m79c9ed52	-> http://pastebin.com/pastebin.php?dl=m79c9ed52
# http://codepad.org/lWIoZ8kr   -> http://codepad.org/lWIoZ8kr/raw.c
# http://www.fpaste.org/LsA3/   -> http://www.fpaste.org/LsA3/raw/
# http://pastebin.ca/1674807	-> http://pastebin.ca/raw/1674807