Update cal.erl

add sub function