let () =
    let n = Scanf.scanf "%d\n" (fun x -> x) in
    let lst = [2; 8; 5; 7; 1; 4] in
    Printf.printf "%d\n" (List.nth lst (if n mod 6 = 0 then 5 else (n mod 6 - 1)))