method
set_location (l,c) = location <- (l,c)