Magic Trick solutions

Magic Trick was solved using Fortran by 2 contestants. Solution sizes: average 1258 bytes (shortest: 942; longest: 1574).