using POMDPs, POMDPModels, POMDPSimulators, BasicPOMCP, POMDPPolicies, POMDPModelTools, POMDPSolve
m = HRIModel()
solver = BasicPOMCP()
policy = solve(solver, m)
belief_updater = updater(policy)
history = simulate(HistoryRecorder(max_steps=10), m, policy, belief_updater)
for (s, b, a, o) in eachstep(history, "sbao")
println("State was $s,")
println("belief was $b,")
println("action $a was taken,")
println("and observation $o was received.\n")
end
println("Discounted reward was $(discounted_reward(history)).")