set [hours v] to ((current [hour v]) mod (12))
if <(hours) = [0]> then
set [hours v] to [12]
end
if <(current [hour v]) < [12]> then   
set [am or pm? v] to [am]
else
set [am or pm? v] to [pm]
end

say [OK I WILL EXPLORE IT ]