||
||	for jk12: based on a past Miranda paper question
||

split :: num -> (num, num)
  split n = (n div 10, n mod 10)


join :: num -> num -> num
  join first second = 10*first + second, if second < 10
  	  = 10*(join first all_except_last_digit) + last_digit, otherwise
  		where
  		(all_except_last_digit, last_digit) = split second
